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Declarations 

START_BOOT, Primary bootstrap routine 
Initialize RPB 

Locate and test memory 

Load Cl microcode 

Identify and read in the secondary boot image 
READF IL ‘ Reads bootstrap file in large chunks 


CPU-specific Tables. 

Test memory 

SAVE _CSRS grvasoecitie rout logs 

SAVE-CSR_780, Save CSRs for 11/ 80 

SAVE_CSR_750, Save CSRs for 11/730 

SAVE_CSR_790, Save CSRs for 11/790 

SAVE_CSR_750, Save CSRs for 11/750 

SAVE_CSR_8SS, Save CSRs for 11/8SS 

INIT-ADAP, CPU-specific adapter initialization routine 
INIT-ADP_?78 - Initialize 11/780 boot device adapter 
INIT_ADP_790, Initialize 11/790 boot device adapter 
INIT_ADP_750, Initialize boot device 11/750 adapter 
INIT_ADP_730, Initialize boot device 11/730 adapter 


P 8SS, Initialize boot device 11/8SS adapter 
“UCOBE FILE, Find and open a ucode file on console 
FIND_CI, CPuespecific routine to locate CI port 
Strings used in File 1/0 

Unexpected machine check handler, DEBUG Labels 

Error message subroutine 

Declarations located at end of bootstrap 
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° ¥S Primary Bootstrap Routin 
“IbENT “yBacoue: . ret sete 


| eonnbaqnnoqneconennncneneesedaneonnncesetseneenanensnensoceonseneseseenecese 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og LA 
ONLY IN ACCORDA WITH THE TERMS OF SUCH pene AND ve THE 


NCLUSION OF T 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


;* ® 
;* * 
;* * 
;* € 
;* e 
;* * 
;@ ® 
* * 
;* * 
-* * 
;* TRANSFERRED. P 
* * 
ve « 
. * 
-* » 
* . 
* + 
* * 
-* * 
* * 
- * 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SOooooooooooSo 


ooooooo 
COoOoooooooooooo 


OOCOoooooo0oo 


Ssss 
ooo 
ooo 


LARRBAAARLASLAALALAALALALALS ASAE RER ERASER RRR ESE EERE EEE EERE EERE RRR EE SEER SS 
_—- 
; FACILITY: 
Bootstrap module for VAX 11/780, 11/750, and 11/730 hardware 
; ENVIRONMENT : 


Runs at IPL 31, kernel mode, memory management is OFF, IS=1 
(running on interrupt stack), and code must be PIC. 


ABSTRACT: 


This module contains the primary bootstrap cote. The main 

routine -- START _BOOT <= gains control from CONSOLE, boot block 
6 code, or from BOOTS8. The code creates a System Control 

Block (SCB), initializes XDELTA if requested, initializes the 
Restart Parameter Block (RPB), creates a PFN bit t map describing 
all of physical memory, reads in a secondary bootstrap program, 
and transfers control to that bootstrap. 


¢ AUTHOR: 

RICHARD 1. HUSTVEDT, Creation date: 18-OCT-1977 
MODIFIED BY: 

v04-002 TCMO019 Trudy C. Matthews 


07-Sep-1984 
Change the venus delay constants in TENUSECTBL and UBDELAY. 
Cache is not enabled in this early stage of bootstrap so 
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SOoCcooooooooooooSc GOOoooooooooooooo 


NA WE WR OOD NAW WN SO OD NOA UE WIN 9 ODNIA UENO OD NAME WH ( OUOONOAUE Wh 


Peete al al altaltal ot of af at ot at at at ot 


Sooooooofzaoo 


oo 


wre - RS Primary Bootstrap Routine ” '” — ig-sep-t98e Q0:17:15 YAK/URS Macro vO4-0g Page? 


the delay values must be decreased from 10 to 2. 


v04-001 wHc0033 Wayne Cardoza 05-Sep-1784 
-1 page table mut account for bad pages. 

v03-033 1CmM0018 i ehews 01-Aug-1984 
Fix more bugs to’ FINO. 1.7 

v03-032 CwH3032 P3o"e goo 6 
Remove seat fer for 750 a *in console boot, ¢t ¢ Fan ne eyere 
with BOOT ad first floppy so ther” I 
are eeatiaeie't te. Also, Lengt on buffer for conf sasbten 
prompt so that Rc won't smash RPBBASE as soon. 


v03-031 TCM0017 Trudy C. Matthews fon tn $a 
4h boot adapter reg ster or spece. gotcuteston : sAvE.C R_790. 
Also add support for a new geo TRLLTR. sTRis 
field allows a controller letter oe the vice’s 
controller to be an explicit input to VMB ( » R . we 
this option available cause INIT’s sigorithm for deriving 
the boot device's controller letter is less than perfect. 


v03-030 TCMO016 C. Matthews 04-Apr-1984 
Fix some bugs in yi AS FIND_C1_790. 


v03-029 CwH3029 CW Hobbs 15-Mar-1984 
Require a ‘Y"’ response when switching console volumes, 
rather than accepting a carriage return. 


v03-028 wHM0002 Bill Matthews 13-Mar-1984 
Modify support for common sy stem files so the interface 
between and SYSBOOT doesn’ t have to change. 


vO03-027 KTA3109 erbey os ygene 08-Mar-1984 
Add support for eee PCS750 ucode. 


v03-026 er. ceet Peter Lieberwirth 7-Mar-1984 
e MOVZBW to fill in RPB BOOTNDT field. We'll have no 
ésbit device types until the BI, but those system routines 
starting to use the word field need to be protected 
against mutant memory (non-zeroed memory). 


NOUS WI 


at 


w 


ABUS in FIND_C1_790 


v03-021 RLRSCORP rt L. Rappaport 88-Nov-1983 
Begin to add ome © support. 


PAN ASSSBVS REALS SBE RRO 


1 v03-025 wHM0001 Bill Matthews 24-F eb- 1984 

! Add support for booting off a set of common system files. 
1 v03-024 TCMO015 Teudy iF Matthews 16-Jan-1984 

: Add SPAMMDEF and S$PR/90DEF missing from TCMO014. 

1 v03-023 wac0023 Wayne Sardeze 12-Jan-1984 

: Add a missing LENABL LS 

1 v03-022 TCMO014 Trudy + Matthews 12-Dec-1983 

: Use PAMM to determine f an adapter is present on the 
1 

1 

} 
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1$ v03-020 TCM0012 -1983 
1 SRvE ESR are Pt ‘tet ini a — n rout ines, 
eansoines “fh 
at Lozat ian Logic te'b the first NDELTA br akpoint. This 
ene ines. of “" XDELTAS s instruction decode 
logic for easter debune 
v03-019 TCHOO11 C. ant thews 28-0c t-1983 
: Initialize apes. Mie $ fied to zero. 
$ v03-018 CwH3018 CW Hobbs 99-Sep-1983 
Change the wording of the prompt string for Switching console 


volumes, add a message that we are resuming load operation. 


v03-017 KoM0073 Kathleen D. Morse asennent 1983 
Make references to TENUSECTBL and UBDELAY PIC. 
Move the vos loutos cells to BOOTDRIVR. HAR: EXESGL_UBDELAY 
and EXESGL_TENUSEC. 


v03-016 TCM0010 Trudy C. Matthews 02-Aug-1983 
Store contents of PR _Sip a EXESGB_CPUDATA cell before 
any CPUDISP macros aré executed. Also update TeMUSEC TOL 
and UBDELAY tables with appropriate values for the 11/785. 


v03-015 KDM0062 Kathleen D. Morse 18-Jul-1983 
Add data cells used by TIMEDWAIT macro, so that boot 
drivers can use a standard time-wait macro. 


v03-014 KTA3074 Kerbey T. Altmann 13-Jul-1983 
If booting DIAG SUPRV, put Cl pagetables in hi mem. 


v03-013 RLRCPUDISP Robert L. Rappaport 15-Jun-1983 
Use new CPUDISP macro to check for supported CPU's. 


v03-012 TCMO009 udy tthews Le oa ba I 
Change sense 0 ¢ BOOT 5 énpiest bit from an enable 
inhibit (i.e. by default, pages with CRD errors A. removed 
bed ay the memory test). 


wr 


w 
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o 
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v03-011 KTA3039 bey I Altmann 08-Mar-1983 
More elegant tix. for cm0008/KTA3037. 
v03-010 Tenoees Trudy C. Matthews gi-Feb-1963 
Change invalid comparison made in K11303 
v03-009 KTA3037 Ker bey y T. Altmann 10-F eb-1983 
Enhance SAVE_CSR_750 to handle floating adapters. 
v03-008 1CM0007 Trudy C. Matthews 25-Jan-1983 


Add rout ines to detect a Cl adapter on any supported CPU. 
Add a new R5 flag bit that ,regyeets that pages with 
correctable sonely errors iscarded at +h. time. 


v03-007 TCM0006 Trudy C. Matthews 11-Jan-1983 
Change 11/790 machine check handler to not clear out SBIA 
error bits (will be done later before enabling interrupts). 
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11/780 clear tf gpsck Bendier e,urite. ons. SBIFS back 
fo. f self lear 11/ error. ‘tne r 
LRSB R for Linkage to XDELTAC® 
§ v03-006 TC 5 wey f- fecetous Ay + aha 
Add 11/790 neateine c rie povater 0 Unibus memory s 
code. Add RPBSL Series 4 to Rees contains muber | of 
bad pages found du vn memory scan. 
v03-005 «TA3008 aad T. Altmann 11-0¢ t-1982 


wn 


Protect R7 across a call to file system. 
Make UNIBUS memory scan more sophisticated. 


v03-004 TCMO004 Trudy C. 28-Jul-1982 
Change ‘’7vv"" synbois. to "990" s ¥ 


w 
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VRB = VMS Primary Bootstrap Routine 16-SEP-1984 : 
, v04-002 Declarations. _ $78 P=1984 0: 
} 1 -SBTTL Declarations 
: g -DEFAULT DISPLACEMENT, WORD 
195 ; 
: 3; Macros to describe VMS data structures 
198 * 
139 SBQODEF 
SBTODEF 
1 SOMPDEF 
¢ SEHSRDEF 
; Honey 
03 3 1O7SODEF 
$ ETA seg H 
0 $10730DEF 
08 S1O0790DEF 
09 SIOBSSDEF 
10 smear 
11 SMCF 790DEF 
\¢ SMSTAT2DEF 
1 SNDTDEF 
14 SPAMMDEF 
15 a 
SPR790DEF 
1 SPRESSDEF 
0000 18 SRPBDEF 
0000 19 SSBIADEF 
0000 0 SSSDEF 
0000 1 SUBADEF 
0000 § SUBIDEF 
0000 SVADEF 
0000 4 SVMBARGDEF 
0000 5 
0000 ® : 
0000 7 3; Field definitions of the CPU-specific 
0000 28 
0000 $3 
43 , SDEFINI CPU,GLOBAL 
0000 3 SDEF CPU_W_SAVE_CSRS 
— $009 4 SDEF CPU_W_CHECKMEM ~ 
00000004 $003 5 bis -BLK 1 
0004 6 SDEF CPU_W_INIT_ADAP 
00000006 Babe 7 1 
006 8 SDEF CPU_W_FIND_CI 
00000008 0006 9 -BLKW 1 
008 40 
Bb5 41 SDEFEND CPU 
0 5 
0 43; 
44 ; Macros 
45; 
$000 549 
00 4 -MACRO ERROR,STR 


ro V04- 


43:58 Wdovessaeivne man. 


Boot Q10 offsets 

Boot device definitions 

systen dump file header definitions 
11/790 Error handling status reg. 
Image header definitions 

440 pynct ion codes 
1/750 definitions 
11 i 
11 
11 
11 


S definitions 

adapter registers 
machine check stack frame 
90 memory status register 
s device types 
0 physical address memory map 
sessor registers 

90 Processor registers 

8SS Processor registers 

tart parameter block — 

790 SBI adapter definitions 

tem status codes 
bys oases? registers 

750 UNIBUS adapter 

tual address fields 

ine VMB argument List offsets 


— 
ewe 8 5 8 


o<—-Cuw-2—-— 0 


data block used by VMB.EXE 


; Routine to save CSRs. 
; Routine to test memory. 
to initialize adapters. 


to find CI port. 


; Routine 
Routine 


; Outputs an error string to the 


ge 


age ae pee tt 
vaB 
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Declarations” * iets 7 90:35:38 fBcOTs. SRCIVRB MAR: Ss (3) 
BSBW ERROUT 3; console terminal. 


eASCIZ STR 
-ENDM ERROR 


—oOwo 


; Generate a word-relative address. 


4 
4 
O90 588 
000 588° 
0 § eMACRO RELADR ADDRESS,BASE 
0 -WORD ADDRESS-BASE 
0 8 -ENDM RELADR 
80 60 
oh o ; Turns a CPU identification code into the relative address of a table. 
000 86 
000 264 -MACRO CPU_IDENT LABEL , TABLE 
00 65 RELADR CPU_DATA_ ‘TABLE’ LABEL 
000 96 -ENDM CPU_IDENT 
000 6 
8000 569; Defi table of data that is CPU-specific, and PIC 
3; Defines a table of data that is “specific, an 
0000 $ ; “ 
0000 7 
0000 7 «MACRO CPU_DEF LABEL 
000 73 CPU_DATA_‘LABEL': ; Name of table. 
000 27% RELADR SAVE_CSR_"LABEL",CPU_DATA_'LABEL' 
0000 75 3; Routine to compute CSRs. 
000 76 RELADR CHECKMEM_‘LABEL*,CPU_DATA_ ‘LABEL’ 
0000 77 ; Routine to test memory. 
0000 278 RELADR INIT_ADP_*LABEL",CPU_DATA_‘LABEL" 
0000 79 : Routine to init adapters. 
000 0 RELADR FIND_CI_"LABEL*,CPU_DATA_"LABEL' 
44 1 3 Routine to find CI port. 
00 Hf -ENDM CPU_DEF 
0000 
0000 4 
000 85 ; 
000 6 3; Branch to a new PSECT 
0000 3 
0000 88 
000 9 -MACRO BRW_PSECT LABEL. PSECT=<$$$S$00B00T ,LONG> 
009 + SHOW EXPANSIONS 
$ 3 BRW LABEL 
000 93 ; 
000 Be 3; teeee Change Program Section 
00 39 -PSECT PSECT 
00 .] 
0 4 LABEL 
0 9 -NOSHOW EXPANSIONS 
By 39 -ENDM = BRW_PSECT 
33 5 3; Set new PSECT 
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Declarations 


: 

38 

000 

000 

000 

000 

000 

000 

000 

000 

000 

Q000007F 0000 
00000001 0000 
0000000D 0000 
Q000000A 0000 
00000004 0000 
00000003 0000 
94 

000 

0000 

00U 

000 

000 

00000000 

44 

$8 

000 

0000S 

000 

0000 

00000004 000 
00 

000 

000 

000 

000 

000 

000 

000 

4 

4 

0000 000 
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MACRO SET_PSECT PSECT=<$$$S$00B00T ,LONG> 
«SHOW EXPANSIONS 

eeeee Change Program Section 
-PSECT PSECT 


-NOSHOW EXPANSI 
-ENDM SET_PSE 


ONS 
CT 


; Build a table of memory size and ranges 


; .MACRO MEM_TABLE,MEM_SIZE,START 
.LONG MEM-SIZE-<MEM~SIZE/10> 
~WORD START 
[ENDM MEM_TABLE 

: Equated symbols 


10_SIZE = 127 3; Maximum # blocks in one read 
DEBUG | 3 Assemble DEBUG code 

CR = 13 3; ASCII code for carriage return 

LF = 10 3 ASCII code for line feed 
BITMAP_PAG_CNT = 4 3; Number of pre-allocated 
STACK_PAG_CNT = 3 3 Number of stack pages to allocate 


PFN bitmap pages 
> Static storage 

-PSECT __299B00T ,PAGE 
BOOTHIGH:: 


PSECT that always Links at end 
of bootstrap. 

Symbol to mark the start of 
the first page after the code 
in this module, | 

PSECT at end of drivers 

Start overlaying VMB here 


.PSECT BOOTDRIV_9,PAGE 
OVERLAY_START: 


IF DF ,.DEBUG : If debugging code included 
EXESMCHKVEC == BOOTHIGH+4 : define a symbol used by XDELTA 
-ENDC ; to locate the SCB. 


Declare a code PSECT that will always Link at the start of the image. 


BIA AN @ SO OONAUNES WIN OS OD NA UNE NN OS O08 NAME WIN OC OD NAUE WIN OOONOU 


SET_PSECT ; Use default PSECT 


; teens Change Program Section 
-PSECT $$$S$00B00T,LONG 


——— 
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-SBTTL START_BOOT, Primary bootstrap routine 


ae 
Functional description: 


VMB is Leaded into oxeie*s memory and gains control via a JMP 
anstcyct on from CONSOLE, boot block 0 on the boot device, or 
BOOTSB. VMB gains control ne START_BOOT. 


VMB beains by creating and initializing an SCB. If the software 
bootstrap control flags specified a bootstrap breakpoint, VMB 
oe ama a BPT instruction that transfers control to 


in the rout 


After the XDELTA breakpoint, VMB initializes a system data 
structure, i.e., a restart parameter block (RPB) that allows 

a system reboot after a power failure or crash. The RPB holds 
the bootstrap input registers, the boot device's CSR and bus 
configuration register (CR), the address of the RPB itself, and 
pointers to a primitive device driver. 


ooo 


VMB, the primary bootstrap, also identifies all ghzetees memory 
in the configuration by creating a bit map in which each bit 
represents one page of physical aenery In the process of 
testing all memory, VMB determines which NEXUSes on the erates 
bus are attached to adapters. For every adapter present, VMB 
records the adapter type in the RPB. 


Finally, VMB chooses a secondary bootstrap image -- either by 
default, by boot flag settings, or by soliciting a file 
rs) 


SOoOoOoOOCSCOSOSOSOSOSOSOOSOSOSOSOSOSOSOOSOSOSSoOSO 


0 

0 

0 

0 

0 

00 

0 

0 
000 
8 00 80 

00 81 
0000 Hf 
0000 
0000 4 
$33 ae 

4 $$ 
000 88 specification from the user. VMB uses a minimal driver for the 
0000 89 bootstrap device to load the secondary image into memory, and 
0 4 ay transfers control to that bootstrap. 

00 38 The secondary bootstrap -- usually SYSBOOT.EXE -- uses the 
0000 9 minimal driver from YMB for reading and writing to and from the 
0 38 a bootstrap device. Thus, SYSBOOT is device-independent. 

00 96 VMB has CPU dependencies such as system bus addresses, memory 

4 97 controller regtetere. and bus acsoter register formats. 
0 98 Therefore, VMB consists of common code that applies to all VAX 
000 99 implementations, and CPU-specific code that applies to one 
000 400 hardware implementation only. The current version supports the 
4 Z 1 following CPUs: 
000 4 : 11/7 8 (STAR) 
000 404 11/7 (COMET) 
00 405 11/730 (NEBULA) 
$0 4 $ 11/790 (VENUS) 
0 40 
00 408 ; Inputs: 
00 409 
09 ai? RO - <07:00> boot device type code (RPBS$B_DEVTYP) 
0 $16 0 mas seus device (RM02/3,RP04/5/6/7,RM80) 
00 41 1 RK06/ 
00 414 2 RLO1/2 
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. ey Sguneet an RAB0) on 11/730 


note: values 1 = 31 are reserved for 
at’es bus devices) 


3 
if Console block storage device 


- 
ws 
wr 


- <15:08> reserved for future expansion 
= <31:16> device class dependent (RPBSW_ROUBVEC) 


UNIBUS = optional vector address; 0 implies 
use the default vector 


MASSBUS = not used 
R1 = boot device's bus address 
11/790 & 
11/7 ~ <Zi 88> MBZ 
<03:00> TR number of adapter 
11/750 - $34: 38> MBZ 
<23:00 


address of the 1/0 page for the 
boot device's adapter 
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4 
4 
0 
1 11/790 = <31:06> MBZ 
§ <05:04> A-bus Adapter number 
0 Z <03:00> TR number of the adapter 
$009 5 11/8SS = <31:04> MBZ 
4464 § a2 <03:00> BI node number of adapter 
0900 3 - all controllers: 
4 4 <31:24> = controller letter designator (optional) 
i 1 - UNIBUS: 
00 : <31:18> MBZ 
100 : <17:00> UNIBUS address of the device's CSR 
§ -11/8SS - <31:00> BI address of boot device's CSR 
8 - MASSBUS: 
0 <31:04> MBZ 
1 <03:00> adapter's controller/formatter number 
g - CI: 
4 <31:08> MBZ 
5 <07:00> HSC port number (station address) 
£ R35 = boot device unit number 
5 RG - Logical block number to boot i from if bit 3 is set in R5 
? (not supported on 11/750) 
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cf8 : RS - software boot control flags. The value -1 is reserved. 
74 ; Bit Meaning 
476 : 
cr 3 0 RPBSV_CONV. 
4 3 3 Conversational boot. At various points in the 
479 ; System boot procedure, the bootstrap code 
4 , 3 solicits parameters and other input from the 
481 ; console terminal. If the DIAG is also on, then 
4 ¢ ; the diagnostic supervisor should enter ‘MENU’ 
2 Z : mode and prompt user for devices to test. 
485 ; 1 RPBSV_DEBUG. 
4 $ 3 Bebus. If this flag is set, VMS maps the code 
487 ; for the XDELTA debugger into the system page 
2 3 : tables of the running system. 
490 ; 2 RPBSV_INIBPT. 
491 ; Initial breskgoint. If RPBSV_DEBUG is set, VMS 
£36 3 executes a BPT instruction immediately after 
rh : enabling mapping. 
495 ; 3 RPBSV_BBLOCK. 
$36 é Secondary boot from boot block. Secondary 
0 497 ; bootstrap is a single 51i2-byte block, whose 
$4 <38 3 LBN is specified in R4. 
00 00 ; 4 RPBSV_DIAG. 
4 13 Dia poor te boot. Secondary bootstrap is image 

4 3 H called CSYSMAINTJDIAGBOOT.EXE. 

000 504; 5 RPBSV_BOOBPT. 

000 05 ; Bootstrap breakpoint. Stops the primary 

4 06; and secendery bootstraps with a breakpoint 

300 4 : instruction before testing memory. 

9000 09 ; 6 RPBSV_HEADER. 

00 10 ; Image header. Takes the transfer address of the 
000 7 3 secondary beotetres lace from that file's 
000: \¢ 3 image header. If RPBSV_HEADER is not set, 

00 13; transfers control to the first byte of the 
38 1 : secondary boot file. 
00 16 : ? RPBSV_NOTEST. 
000 17; Memory test inhibit. Sets a bit in the PFN bit 
000 3 ; map for each page of memory present. Does not 
38 3 : test the memory. 
6 1: s RPBSV_SOLICT. 
¢ 3 File name. VMB prompts for the name of a 
300 ? ; secondary bootstrap file. 
00 5: 9 RPBSV_HALT. 
§ ; Halt Before transfer. Executes a HALT 
00 3 instruction before transferring control to the 
000 8 ; secondary bootstrap. . 
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0 
0 
0 
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0 
0 
0 
0 
0 
0 
0 
0 
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START_BOOT, Primary bootstrap routine 
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10 RPBSV_NOPFND. 
No PFR deletion (not implemented; intended to 
tell VMB not to read a file from the boot device 
that identifies bad or reserved memory pages 
$0 that VMB does not mark these pages as valid 
in the PFN bitmap). 


RPBSV_MPM. 

Specifies that multi-port memory is to be used 

for the total exec ouery requirement. No local 
memory is to be used. This is for tightly-coupled 
multi=processing. 


12 RPBSV_USEMPM. 
Specifies that multi-port memory should be used in 
addition to local memory, as though both were one 
single pool of pages. 


13 RPBSV_MEMTEST 
Specifies that a more extensive algorithm be used 
when testing main memory for hardware uncorrectable 
(RDS) errors. 


14 RPBSV_F INDMEM 


Requests use of MA780 eonory if MS780 is insufficient 
for booting. Used for 11/782 installations. 

15 RPBSV_AUTOTEST 
Used By Diagnostic Supervisor. 

16 RPBSV_CRDTEST 


Specifies that memory pages with correctable (CRD) 
errors NOT be discarded at bootstrap time. By default, 
ages with CRD errors are removed from use during the 

ootstrap memory test. 


<31:28> RPBSV_TOPSYS 
Specifies the top level directory number for system 
disks with multiple systems 


The hardware or the CONSOLE program sets up the next 3 registers 
after a system crash or power failure: 


R10 - halt PC 


R11 - halt PSL 
AP - halt code 
SP - <base_address + *X200> of 64kb of good memory 


Implicit inputs: 
4 VMB gains control, physical memory looks Like the diagram 
elow: 


SP=-*x200: 


( 


§; 


H# 15 
| VAB = VMS Primary Bootstrap Routine 16-SEP-1984 00:17:15 VAX/VMS Macro v04-0 2 
, V046-002 START_BOOT, brimary bootstrap routine or eE 19 4 99335536 BOOTS.SRCJVMB.MAR; a 
| 4 SP 4 bmoaemwrm sc enmare sora n ence eae eenanamawost 
' 3 : Primary bootstrap (VMB) : 
| 0 oY 3 Outputs: 
p 92 ; R10 - base address of region containing secondary bootstrap 
93; R11 - address of restart parameter block 
94; - current stack pointer 
| 33 32 ; PRS$_SCBB- system control block address 
| 308 97 ; Implicit outputs: 
00 99 : When VMB transfers control to the secondary bootstrap, physical 
B88 600 3 memory is laid out as in the diagram beleur scm 
4444 60 : RPBSL_BASE H $$ eases nmsseace ewer rmeoe ern ne eonrnsma eran sa = <aeaeoe + 
0000 603; j Restart Parameter Block (RPB) } 
44 604 3 base+*x200: ¢eaermorocoazroesce Swern se se Te wees Deon sen eer ome + 
000 605; H Primary bootstrap (VMB) ' 
444 on6 Py PRS_SCBB: . t.. @eten eenteel theek tenes 
§ H stem r ' 
0000 608 3 » I alo enteiebe Rens Bit ne wae moe + 
0000 609 ; H PFN Bitmap : 
0000 610 Z PFNMAP+*x800: poser eanssenwre esc erenoeae ewesece sen ere aan eoe + 
0000 611; ae Stack } 
0000 o1¢ Z SP: foes wm aman enresewranrecacas Scenes eo eee wee sew ee 
0000 613; : Secondary bootstrap (SYSBOOT) { 
0000 614; jj §  . j.  eeccceccecesesccoescecescceccccccecess 
0000 615; 
0000 616 ; The design for the PFN bitmap has been extended to handle more than 
0000 617 ; 4 pages of bitmap = 8mb of memory. Bitmaps that do not fit in the 
0000 618 ; 4 page reserved area are now allocated contiguous gees pages in 
0000 619; Biger memory. Assuming that the pages are actually good, the 
0000 620 ; bitmap is placed at the RPB address + Imb. If a page in that area is 
0000 621 ; bad, then the next contiguous run of pages that is 1 enough is 
0000 622 ; where the bitmap will be placed. For backward compatibility, the 
0000 623 ; RPBSQ_PFNMAP descriptor in the RPB points at the pre-allocated 
0000 624 ; 4 page bitmap, which is correct for the low 8mb of memory. The 
4 e 5 ; real descriptor for the bitmap is passed in the argument List. 
9000 $59 io 
$00 4 § START_BOOT Start of i bootst 
3 ; Start of primary bootstrap. 
0009 é 6 ‘a p y p 
$008 6 § : Reserve space for a System Control Block (SCB) punpet acess after the 
0000 63535 ; VMB code. Write the address of a machine check fault handler in all 
000 634 ; vectors in the SCB. This handler is used durin Gootstrapping except 
$38 635 ; when the bootstrap code specifically writes a different handler 
3 ? § : address in one of the SCB vectors. 
09 638 : The Low bit set in the address of the fault handler causes the handler 
0 639 ; to execute on the interrupt stack. 
000 641 
O113"CF 04 000 642 CLRL CONTINUE _ INDEX : Indicate initial execution of VMB 


~~ 
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: Continue in other psect 


- Sthat poor gootstrep Routine 
rimary bootstrap veut ine 

FFF9*® 31 47 Be TART _B 
4 SET_PSEC arirhen. CONG> 


; teeee Change Program Section 
-PSECT YBTMEM,LONG 


64 
START_BOOT_1:: ; Entry point for re-execution of VMB 
125°CF MOVAB BOOT _FAULT+*1,R6 ; Get the address of a handler. 
3 $388 ¢ MOVAB BOOTRIGH+*x260,R7 ; Get the address of the first 
; byte past the SCB. 


: Register usage in the Loop below is as follows: 


WR O ODONOAUE WN" OVOnOu 


FO Annan ee ee 


; Rg - address (+1) of a machine check handler 
3 R - address of 1 byte past a longword of SCB 
FILL_SCB: : Fill SCB vectors. 
MOVL R6,-(R7) : Write 1 vector. 
BIT’ @*XiFF RZ ; Check for page boundary. 
BNEQ FILL_S¢B ; Need to wi ‘te another vector. 


0014 664; 
by 686 ; Write the address of the SCB into the SCB processor register. 
146 667° 
DA 0014 668 MTPR R7,#PRS$_SCBB ; Load SCB processor register. 
OO17 890 
tA 671 Read the ereqee identification processor register to discover which 
17 ore 3 3; kind of VAX is to be ted. 
8617 gr ’ 
0B 17 675 MFPR #PRS_SID,RB 3 Read the CPU identification 
1A 076 3 Gave: cont register. 
O1A 67 MOVL EXESGB_CPUDATA ; Save contents of SID. 
1F 678 ASHL re exe SIB_TYPE,R8,R8 =; Get CPU identification code. 
4 4 MOVB RB, EXESGB_CPUTYPE ; Save processor code globally. 
9 1 CPUDISP <<780,VALID_PROCID>.- ; Test for VAX-11/780 
9 6 : <7 -VALID~PROCID>,~ 3 and VAX-11/7 
pi VALID =pROt 1D? 0 3; and VAX-11/7 
9 6 <7 VALID-P ROCID>,- ; and VAX-11/790 
685 <8SS ae: ~-PROCID>>, - 3; and VAX-11/8SS 
ENVIRON=VMB 
33 Os 
3 6 } : Processor is of known type. 
58691 
; $36 VALID_PROCID: : Continue after determining valid CPU. 


tstrap Routine = i 138% 90:42: i AX/VAS ro V04 Page 13, 


as poor ae 


mary bootstrap routine 


> 


BOOTS. SRC JVMB.MAR; ( 


Now set up Naclvers. Later on for the time-wait macros, used only by 


the boot 
be computed 


oo oe 


BeAb'eres 8a 


>< - 
RS RRS 


- 


vers. ter on in the boot process actual values wil 


MOV TENUSECTBL-1(R8) ,EXESGL TENUSEC ; Ten micro-sec | counter 
movser UBDELAY- Tabs exébcr UBBELAY ; Unibus delay loop counter 


f the DEBUG flag is defined (meaning thes { \ has been Link 


with ay priest? wy 


ked 
set 2 xDE lors —_ he RY -- 
ints and one for tbit t traps. » &-. nitia 


REUTER. srestenion table, allocate pooes of stack, he ate BR requested, 


execute @ breakpoint be 


ee 


re proceeding with the hE, 


* 3 i is going on, 
oh a A 


up T eee 
3 gcere che Inievat breakpoint. 


MOVL $ rrent t 
MOVAB 2 meme PAG. cnTe“A208>s<S TACK =PAG Guts #AS0693(879 ~ 
SP 3 Create a stack B and 
i pre-al Located b ose thy 
no BPT was requested in the 
3; boot flags, just proceed. 


BBC #RPBSV_BOOBPT .RS,- 
NOBRK 


Initial breakpoint. 


NNN 


Current register status is as follows: 


NAUE WN O OO WOU Sw O 
Se Se Se Se Ge Se Ge Se Ge Se Ge Ge Se 


MPwn—oO 


OOOO 
Si i ia Pin, Pian i i ie i Pn i I iy ie i J 


Pm ~ 
owoc 
x 


RO-RS 
R 


initial VMB input values 
SP value at ptors a VMB 
address o 

rocessor sleet Tleat ten code 
nitial VMB input values 
address of a 3-page stack 


23 ; in presheotas. 
BPT 3 er QoeLt 


Proceed with bootstrapping. 
-ENDC ; End of debug conditional.” 


-—__——__-—___- 


tmap 
the address and length of the bootstrip device driver 
Current register settings are as follows: 


>. 


x 15 
- Primary Bootstrap Routine 1 eat :17: AX/VMS ro V04 P 1 

yoe~002 inittetize abe ” ei ioett 90: 35333 TS.SRCJVMB.MAR; ae (2 

D08 ° -SBTTL Initialize RPB 

ttt vs 

if t 4 

0081 The next section ef VMB writes the restart parameters into the RPB. 

008: 4 These parameters include 

NV + 

NOEs the VAB input registers 

008! the base address of the RPB 

DC the boot device's CSR 

DC the boot cutee adapter’s configuration register (CR) 

4! the address of the PFN bi 


+> 


RO-RS = unchanged from time that VMB gained control 
+, - SP value from time that VMB gained control 
© - address of the SCB8 
R - processor identification code 
7 R9-FP = unchanged from time that VMB gained control 
re? SP = top of VMB’s stack 
ree i. 
re9 
res ; Store the boot parameters in the RPB, as well as the RPB starting 
769 ; address. CONSOLE-controlled restart code looks for the starting 
ooo 3 address contained within itself as a clue to VMS restartability. 
772° 
7E 58 77 MOVL R11,-(SP) : Save Halt PSL temporaril 
58 FE00 C6 774 MOVAB =*1%300(R6) R11 3; Calculate base address of RPB. 
14 AB 775 MOVL (SP)+,RPBSL_HALTPSL(R11); Save Halt PSL in RPB 
19 AB OSA 77 MOVL R10. RPBSL HALTPC(R11)  ; Save Halt PC in RPB 
O1FB°CF 4 77 MOVL R11,B00$GC_RPBBASE 3; Save address for callback. 
68 77 MOVL R11, RPBSL_BASE (R11) 3: Save address in RPB. 
1C AB D O0OAO 77 mova RO. RPBSL_BOOTRO(RI1) : Save boot registers RO-R1. 
24 AB 70 780 mova R2,RPBSL Poors (R11) : Save boot registers R2-R3. 
0108 (8 427 AB «O90 00AB—s 781 MOVB RPBSL_BOOTR2+3(R11), - : Move high byte of BOOTR2 to 
7 § RPBSB_CTRLLIR(R11) ; another RPB location. 
27 AB % ae 7 CLRB RPBSL rep tset ; Clear the high byte (for compatibility). 
2C AB OSG : 7 va R4 ,RPBSL_BOOTR4(R11) ; Save boot registers R4-R5. 
"CF DE ; f 5 MOVAL BOO$AL_VECTOR,- 3 saye address of boot device 
AB : RPBSL_TOVEC(R11) : driver 
AB OG BE 4 CLRL RPBSL_IOVECSZ(R11) : Correct size of boot-driver wil be 
: ; 3 set by the first call to 10 
OOAS (CB 9% : 7? CLRB RPBSB_FLAGS(R11) ; Initialize flags field 
18 AB CC 00 7 MOVL AP ,RPBSL_HALTCODE(R11) ; Save the halt code. 
ef AB _ oo C 79 MNEGL #1,RPBSL_ADPPHY(R11) 3: Initialize adapter physical address 
4 AB 1 CE QOCA 4% MNEGL #1,RPBSL_CSRPHY(R11) : Initialize CSR physical address 
794 


4&4 * Move device characteristics from the input registers into the RPB. 


MOVW R3,RPBSW_UNIT(R11) ; Save the device unit number. 


L 15 
002 In\ttatize APB te Moutine "GSEp=198e 99:52:25 Eeoors: sme Suma man, i 


6648 50 9 MOVB RO, RPBSB_DEVTYP(R11) ; Save the device type. 


| VRB 
v04 


From this gotat on AP contains the address of the Secondary Boot 
argument List. 


SC O1AB°CF DE 


MOVAL SECOND _PARAM,AP ; Address of Secondary Boot arg List 


Calculate the address of the CPU-specific table. CPU_CODES is a List 
ot pr reets from start of CPU_CODES to start of a CPU=-specific data 


58 O670°CF48 3¢ 
58 O670°CF4B 9E 


MOVZWL CPU_CODESCR8],R8 For a CPU, get offset to CPU 
data from CPU-List table. 


MOVAB CPU_CODESCR8],R8 : Add offset to address of 
3; CPU-List table. 


Reserve space for an PFN bitmap that will desecribe all of physical 
memory. Store the address and size of the PFN bitmap in the RPB. 


59 6448 AB 

69 0200 C7 

79 00000800 8F 
1000 ¢7 


MOVAB RPBSQ_PFNMAP+4(R11),R9 ; Get eta A RPB bitmap 
MOVAB “X200(R7),(R9) : Store PFN bitmap address 


: page past SCB base address). 
MOVL #BITMAP_PAG_CNT#512,-(R9); map si 
MOVAB $< NEOUS +<OT TAP _PAS_CHT® 


TRH HMMM MmMmMmMmmMmmnrmrnrny 


SSSSSSSSSSSSs 


RS mR OR 


1 
i store bitma ze in RPB. 
X200>+<STACK_PAG_CNT#*X200>>(R7) ,= 
; Adjust pointer to 1st unused 
: byte of free memory (past the SCB 
3 and the PFN bitmap and the stack). 


Now continue execution of VMB in the epprene tate piece, based on 
whether this is the first execution of VMB (normal boot procedure) 
or whether this is a recursive execution of VMB (as requested via 
RPBSV_FINDMEM flag). 


MOVAB CONTINUE_TBL,R6 :; Get adr of continuation code adrs 
MOVL § CONTINUE-INDEX,RO ; Get continuation index code 

CVTWL «= (R6) CROJ, RO ; Calculate address of appropriate code 
JMP (R6)CRO 3; Continue executing where left off 


SPAAMAAOOOOODNOOCWD Vw 


Pm bes bea bea ba na a ca Pa Ba na 


BES FNWWINWIWIWIWIWIIWINIPONINIPINIPININID 2 OO OO OO 


MEAN 20 ODNOAUE WN 0 OD NAME WIN SO OD NAMES WIN O ODNOU SW 0@ 


Table of continuation sepreseee for continuation of 

algorithm that uses MA780 gonery instead of MS780 memory 

for boot ing, (Requested via RPBSV_F INDMEM Stag.) Each 

entry in this table potas to the code at which execution 
continues after VMB has been moved into meners on a different 
memory controller. This is to allow the physical addresses 
of memory to be altered by VMB. 


ONT INU 


CVPR e Be Se Be Se Ge Se Ge Se 


E_TBL: ; Table of continuation addresses 
RELADR NORMAL _PATH, CONTINUE TBL ; Path for normal VMB execution 
RELADR CONT1_PATH,CONTINUE_TBL ; Continuation of VMB in MA780 memory 


SSSsssssssssssses 
nNOVCVTCVTCCVUTCVCVCVTCVTTCP 


DIP & 


~ 
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RELADR CONT2_PATH,CONTINUE_TBL ; Continuation of VMB in MS780 memory 
1 coins 1 °+ ye 3; Index into continuation table 
00000000 011 ‘9 : Normal VMB path index is 0 
11 : NORMAL _ iter 


56 04 AD 
00 66 00 
00 66 00 


- VMAS Primary Bootstrap Routine des ~* SEP-1984 2 94 4: iF yaneyes ne Ry omy, 


-SEP=1984 
¢ -SBTTL Locate and test memory 


Locate and test memory 


ee 
+ 
+ 


records the size and pattern o 
t does this by calling a a. specific su 
as subroutine handles the s 


—OOe 


NPS Ae AS 


oO 
SODONAMNE WN $9 ODNAUES WN O OONOUS WN 


ures the sizing and testing are complete, the resu 


and a clean, dense, contiguous 
Current register settings are the following: 
RO-R6 scratch 

R address of the SCB 

address of the $0 PrARAe table 

address of RPSS 

address of tee t byte of unused good memory 
address of t 

address of oe Mle Si boot argument List 
scratch 

address of a 3 page stack 


@ 

_ 

oO 
seeveuuuenrn 


po VMB. For 11/ 
a later stage of bootstrapping. 


DOOCOCO0OO00 0 OC OCBWBODDDDODODO NNN VN~N 


LOC_TEST_MEM: 


+©.09.09 09 Cd CD GD Cd Od Cd 09 Cd OD Od CD OD CD Gd GD CD CD CD CD CD CD 


901 
ERROR logic allows it to restart. 


904 CLRL VMBSL_HI_PFNCAP) 
905 ROTL #21,8 ale VABSL LO_PFN(AP) 


90 ROTL <32-9 RO 
908 MOVAL BSen5 ROI TRAP _BAS_PFN : 


block of —— in which we are running. The size of this 
pre-allocated bitmap is an integral number of pages. 


ee a a a a ed ak td od od = td = = = 8 ss ss 


WAIN PONOPONOPONONDNY NS 9 9 9 OO I Ss Ss Ss Ss Se SS ee 
DrommmmmmmmmmMmmn Vy > NNN NNN 
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The next section of the get beotstres grogren Coteratnes and 
available Fg wt B. ? PFN bitmap 
routine Linked eth VMB. 
09 8 memory and the testin 
pages - .A common routine (SOOSTES =nem) is talled to os lees e and 
etek tee bitmap segments, and loop th cours the page testing. 
Lting bitmap is 
neither contiguous nor necessarily dense. There could be ranges of 
PFN's that are simply not present and will of course be assume 
to be bad. At this point a cons tqueus chunk of memory is allocated 
bitmap is formed from the pieces. 


In previous versions of VMB, the RPB CONFREG field was filled in with 

a code indexed by i number which identifies she adapter type of each 

NEXUS. This is $i LL done for 11/780 and 11/750 for backward compatibility 
0 and 11/790, the CONFREG array is filled in by INITADP 


No assembly time initialization is allowed in VMB because the 


: Jats BITMAP data for 
90 CLRL BITHA Hl IN NOX Highest bitmap page index 
3 ar 


Initialize the prowwi located PFN bitmap pages to zero. There is 
at spose one such pa ° to hold the bitmap for the pre-tested 


»,R6 : Get base of PFN bitmap. 
R6) ,#0, (RO), (RO) Set bitmap to all zeroes. 
R6),40, - : Zero fill the memory descriptors in 


P 19 
age 5 


) 


—___-—— - s _ 
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/v04-002 Locate and test aenery” $73 ~ 3b 90:35:38 BOOTS. SRCJVMB.MAR; . tt 


00BC CB 
abt ge SrueMTeRGe enn ‘oye RPBSL_MEMDSC(R11) ; the RPB 
4C AB OG CLRL RPB T(R11) Ini e count of goo? — 
el EB SOR oe a Ae a eR 
ress of vector o map addresses 
6A 0800 BF FF BF 6A 00 2 moves #0, (R10) Mee 1 AS 1204, (R105 3 oot bitmap address Venap 
: A side effect of the above MOVCS is that R1 = R10 
5A 53 00 : MOVL R3,R10 ; Next free address (page bounded) 
53 04 A9 = MOVL  4(R9),R3 ; Address of pre-allocated bitmap 
‘ 9 dO MOVL #BITMAP_PAG_CNT,R2 3; Number of pages of pre-alloc bitmap 
1 ; dO 108: a R35,(R1)F ; Store address of bitmap page 
53 0200 f Of MOVA *x200(R3) ,R3 ; Next pre-allocated bitmap page 
F5 52 =SCO#F SOBGTR R2,10$ ; Loop through pre-allocated page(s) 
: Allow the bitmap page containing the RPB to be above the pre-allocated 
3; (8mb max) PFN bitmap. 
50 5B £8 8F 78 : ASHL = #-<9#12>,R11,RO ; Bitmap index for RPB 
O1E4'DF40 3 D5 TSTL @aBITMAP _VEC _PTREROJ : Need a ighethe™ age for this 
3 portion 9° . e PFN bitmap? 
7 ve BGEQ 208 ; ranch if 
O1E4'DF4O SA 00 MOVL R10,@BI TMAP_VEC_PTRCROJ ; Use one aere ’ re~tented page 
6A 0200 8F 00 6A 00 2 MOVCS #0,(R10),#0,4512,(R10) ; as the bitmap page 
5A 53 00 VL R3,R10 ; Keep track of next free address 


20$: 


In the lag and 11/750 CPU implementations, the memory test routines 
check up to 16 slots (positions) on the s syeten bus for adapters or memory 
controllers. The 16-byte field RPBSB_CONFREG in the RPB stores each 

type of adapter/controller oe ys bootstrap finds wes Set up registers 

to facilitate this Loop in the CPU-specific routine 

In the 11/730 and 11/790, the CONFREG field is not “Fitted in by VMB, but 


: initialized in INITADP at a later stage of bostetrens ing, The difference 
3 is to maintain backward compat ibility of VMB for currently supported systems. 


2 age 


55 0090 (B 9E MOVAB RPBSB_CONFREG(R11),R5 : Point to start of 


; configuration field. 


3 Now call the CPU-specific routine to locate and test memory. 


me ee ee ce ee ee a DD ee ed ed od od od od od od od 3 
YS S © F OOOO OW 000000 00 0900 09 09 09 09 09 09 09 09 09 09 80 09 09 0D SIN IN NOP A AAA AAA UTI BO 
YS BW LHS OOM MMMMMM OOOO OOOO OVOWOO OVODAMWOAA $$ NMOOOOAOGQHL MP NNT OVROM 
DOOODO OWOWODOODOOWVDOTGOODODOOOOODOOODOVOOOOOODOOOVOOOOVOOODOVOOOOOOOWOWOOOO 
SINS ODS DO DED DDD DS TTT Be BS BS BS BB EIN nnnnrrrpononn —* 
FWRI OOD NAUE WR 9 OD NAMES WN OOO NA UE WR OOO NOU EWI CO OONOUSWNR—-Ow” 


SOOOCOCOSSOOOCOCOCOCOCOOOCOOCOC COCO OCOCOCOOCOSGOOOCOCOOOOOOOOOOOOO 


1600 8F s PUSHR #*M<R9,R10,A ; Save some registers 
50 02 Ag 2 CVTWL  3=6CPU_W CHECKMEM(RE) . RO : Calculate address of a 
6840 16 JSB (R8BICROJ 3 CPU-specific mepory test 
: ruut ine and cal 
1600 BA POPR #*M<RO,R10 waters saved register 
03 01€8' ef D1 CMPL BITMAP_HI Ox, #BITMAP_ pig tNT=1 ALL bitmap orenat Leceted! 
OE 14 BGTR_ ALLOC_BITMAP ; Branch if not 
50 O1E8'CF ADDL3) = #1,BI1TMAP_HI_INDX,RO 3; Actual pA of the pre-allocated 
; bitmap pages that were used 
44 AB 50 09 78 ASHL #9,R0,RPBSQ_PFNMAP(R11) ; Record possibly smaller descriptor 


r — : . = - 
yma C 16 


- VAS Primary Bootstrap Routine 16-SEP-1984 00:17:15 VAX/VMS Macro v04-0 Pa 
hepato. Locate and test aenery” met 90335538 BOOTS. SRCJVMB.MAR; - 
OOAD 31 fs arg BRW BITMAP_IS_OK ; Yes, don't need to move it 
8 77; 
| 18 978 ; Need to allocate a contiguous PFN bitmap and move the scattered 
| HS 979 ; bitmes pages into it. 
18 ; 1 ; The starting anint for trying to allocate is 4096 gore (2mb) after 
18 ¢ 3; the RPB. The only pages that can be in use here that appear to be 
18 985 ; good and usable are the or cnee pages themselves when they are 
HS 2 ¢ ; allocated as the first good PFN in a given bitmap page. 
18 3 § 
: 18 987 ALLOC_BITMAP: 
52. O1ECCF 1 ¢3 018 988 SUBL3 #1,BITMAP_BAS_PFN,R2 ; Desired location for bitmap 
5 pS 1B 989 CLRL R5 : Init “first alloc failure’’ flag 
E 1 1BA 990 BRB 45$ 
29 52 10 AC F2 O1BC 991 10$: AOBLSS VMBSL_HI_PFN(AP),R2,20$ ; Calculate the next PFN 
sie! 33 ERROR </ZBOOT-F-Failed to allocate PFN bitmap/> 
OC 00 EF O1EA 993 208: XTZvV #0 Wig eRe. ; Bitmap page relative PFN 
51 09 OC EF OI1EF 99% XTZ2V -#12,89,R2,R1 : Index to bitmap page 
51 O1E4*DF41 00 O1F4 995 MOVL § @BITMAP_VEC_PTRCR1].R1 : Address of bitmap page 
o? 1 TFA 996 BGEQ 3; Branch if present 
52. OFFF 4 ae re 244 pis cattle 3; Skip this entire bitmap page 
09 61 50 I $05 999 30$: BBC Rp. (et) 40$ > Branch if page is bad 
50 52 09 78 0207 1000 ASHL  #9,R2,RO0 ; Address from PFN 
51 50 o0d1 0208 1001 CMPL RO,R1 ; Same as bitmap page adr? 
14 12 5443 1906 BNEQ 50$ ; Branch if not, its ok 
0210 100 ; Otherwise treat as a bad page 
06 55 00 €2 0210 1004 408: BBSS #0,R5,45$ ; Branch if not first alloc failure 
52 54 O1EB'CF C1 0214 1005 ADDL3 BITMAP_HI_INDX,R4,R2 ; Skip the entire ‘‘pre-planned”’ 
asia 1006 ; allocation area. Some bitmap pages 
021A 1007 3; may be in it, but in the wrong place 
54 52 01 C1 O21A 1008 45$: ADDL #1,R2,R4 3; Reset start point of search 
53 O1E8'CF O01 C1 O21E 1009 ADDL #1, BITMAP_HI_INDX,R3 ; Reset no. of pages to look for 
95 53 F4 $553 1319 50$: SOBGEQ R3,10$ ; Next page in contiguous cluster 
0 zr 1012 ; 
03 g 1018 ; Now move all the bitmap pages into the contiguous space just found 
6559 1015 
er 1016 MOVE_BITMAP: 
55. 54 0CODs 78 7 101 ASHL #9,R4,R3 3 gearing ad. . new bitmap 
04 A9 = =53 4 § B 1918 MOVL R3,4(R9) 3; Record base adr of PFN bitmap 
56 O1E4°CF OD F 101 MOVL BITMAP VEC_PTR,R6 ; Adr of array of bitmap page adrs 
51 86 9 $ 4 1969 10$: MOVL (R6)+,R1 ; Adr of next bitmap page 
OA 1 37 1021 BGEQ 208 ; Branch if page is allocated 
63 0200 8F 00 63 99 ef $79 1066 Boyes £2q (RS) 00.0512.) z Ne good pages in this 2mb 
53 51 O01 3 1094 20$: CMPL R1,R3 3; No move needed? 
07 12 re 18 5 BNEQ 30 ; Branch if must move the page 
53 0200 3 + ° re ' $$ ot gpg (5) 03 3; Just adjust the bitmap adr 
61 6700 8F 6.28 4F 15 8 a0$: MOVC3 Pet2, (RI). (R3) ; Move the bi tnep bege 
pA 1EB°CR =F 4 55 1 0$: s0eeye BITMAP_HI_INDX,10$ ; Loop through all bitmap pages 
69 3. 6 04A9 C3 5A 1030 SUBL 4(R9) ,R3, TRI) 3; Store size of PFN bitmap 
5F 1031 BITMAP_IS_OK: 
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SA O1E4*CF D0 TH 1936 MOVL BITMAP_VEC_PTR,R10 ; Reset first free byte pointer 
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! 5 é -SBTTL Load CI microcode 
4 1 $ ; Check for the presence of a CI port on the SBI. f present ery to locate 
1 8 3; the appropriate microcode file on the console medium (C1780.BIN). If found, 
1 ; then load it into memory. If not found and not booting from it, merely issue 
66 (1 rt 3 @ warning message and continue on - presumably some human will correct the 
2 ! a3 ; situation later. If mt found and booting, then give an error and HALT! 
64 1043 ° 
64 1044 -ENABLE LSS 
£0 64 1045 BBS #RPBSV_DIAG,- :; If this is a DIAG SUPRV boot, 
66 1 y RPBSL BOOTRS(R11),2$ : then do NOT allocate. 
69 1 BS CACHE ALLOC 3 Allocate the FILEREAD cache 
A of 1 rt 2s MOVZBL RPBSB_DEVTYP(R11),R z Hold the device type 
2 1 CvT oy W 4 peedamatas 3; Get CPU-specific routine to find Cl. 
1 74 «1 29 JS8 TCRO : Call it. 
1 77 +1051 BNEQ $ ; NEQ => CI port on the system. 
91 79 «1 26 CMPB #BTDSK_HSCCI,R2 ; Booting off the HSC/C1? 
13 7C 105 BEQL $ : Yes, error 
31 4 : 22 BRw 0$ ; No, just leave quietly 
ei 1086 5$ ERROR </%BOOT-F-No such device/> 
90 98 1928 10$ MOVB #BTOSK_CONSOLE,- : Temp set for reading from console 
9€ 1059 RPBS$B_DEVTYP(RI1) ; the ucode file 
3 AQ 1060 MOVAB CI_UCODEV,R3 3 Pick up the ucode vector 
3 AS 1061 BSBW OPEN UCODE_FILE : Find and open it 
f O2A8 1 $6 BLBS RO, 308 ; Found it, continue 
1 0 Ag 63 BRW 408 : Did not find it, but not booting 
AE 1065 ; Found the CI and the CI ucode. Now determine the place in memory to read 
AE 1 $ 3; the code into as weil as put the page table. The search starts at place 
AE 1067 ; indicated in the foilowing table and stops just short of the FILEREAD 
AE 1 3 3; cache (which is why the cache-init was done earlier). If not enough 
‘ 1970 3; memory can be found, halt with a message. 
AE 1071 ; NOTE: If this table is changed, a corresponding table near the Label 
‘ : 4 : MEM_CACHE_TABLE needs to be checked for consistency. 
AE 1074 MEM_TAB: 
‘ ! 2 5 SIZE,START 
AE 1 r§ MEM_TABLE 8192,512 ; More than 4 megabyte 
B4 1 4 MEM_TABLE 204 258 ; More than 1 megabyte 
Bh : 4 MEM_TABLE e 
0D CO 1081 30$ PUSHL R2 ; Save old devtype 
4 - ; MOVL RPBSL_PFNCNT(R11),R1 3; Maximum memory 
g c6 1 ADDL RPBS$L_BADPGS(R11),R1 3; Add in the bad pages 
CB 1084 MOVAB EM TAB,R3 ; Addr of table 
D CF 1085 32$:  MOVL (R33+,R4 : Get the next table entry 
1 D2 1 $ BEQL 4$ 3 penery too small 
3¢ D4 1 MOVZWL (R3)+,R0 ; Starting page number 
D1 0207 1 3 CMPL R1,R4 ; More memory than this entry? 
19 DA 1 BLSS 7 ; Branch if not, get next entry 
3; Set to round up 
; i 3 ASML a arth os f : f tabl ded 
7 -7,R1, ; Number of pages of page table neede 
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Leed Ci atcrecese gree aioe $i isei28 fedove see staan oun 
51 970s" Ff C 5 § ADOL ft.t UCODE _STAT+4,R1 : Add in the ucode | 
1 A MOVL RG LL not settle for 
55 08 AC 2 > 8 Nea _FILECACHE+4 (AP); Okay Star oder of rita coche 
r re, ee 
55 4C AB. FE 8F } F 38 ASHL he eeeet ” “yambetieite RS” 3 use" a of nen oF limit _ 
E FR 97 60%: C If 2 NOT @ DIAG SUPRV boot, 
09.30 AB Fe 98 fnresypootéscent 338 1 skip 
50 300 8F f . MOVZWL #768,R0 3 start at *E x60000 
55 4C AB MOVL RPBSL _PFNCNT(R11) RS ; Go to top 


; Attempt to allocate the pages necessary: age table to enc ass all of 
gore seat memory and the f full microcode tite’ Fhe entire sise oust fit 

; a lower address thon the FILEREAD cache 

; be either stepped on or deallocated until inIT time. 


$35: BSBW ROQSALLOC PAGES a Gree. the pages 
BGEQ : Success 

ERROR </ZB00T-F-Insufficient asnery “ter CI/> 

ADOL3 as -VMBSL_CI_HIPFN(AP); Set the highest PFN used 

ASHL e ; Address to read into 

MOVL Re. VGSO_ UCODE +4 (AP) ; Store address away 

mova ; Save registers 


: Now attempt to find and load the PCS file for 750's. 


gince this allocation cannot 


SE | 
ee 


0000" cf 91 CMPB sé $GB crur Yes : Check if this is 750 
#PRS_SID_TYP 60 
BEQL 64% : Oka 


BRw 80$ No. so skip all this 


64$: CMPB EXESGB_CPUDATA+1,#*X5SF ; Is this a REV 95 ucode machine? 
BGEQU§ 65$ 3; Yes, continue 
ERROR </2ZB00T-F-Base CPU not at proper rev level for CI/> 


65$: MOVAB PCS_UCODEV,R3 
$B open UCODE FILE 
Ss UCODE _STAT,RS 


0 1 

00A1 3 

SF 8F e's 9 
av 


Pick up ucode vector 
Find and open it 
gtoceime L onl size 
Read it in 


mMOva 
BSBW REA AOF I 


This routine loads the Patchbits. The Patchbits are extracted one bit at 
a time from Longwords and written to the Patchbits. To write to the 
Patchbits a ‘1° has to be written to the Patchbit Enabie Register (CMI 
address FOC000). Upon completion of this routine the Patchbit Enable 
Register s cleared. 


56 ofS AC MOVL VMB$Q yeoores oS we oR6 : Grab starting address 
54 00F00 F MOVL #*xO0F : Physical address of patchbits 
00FOCO00 9F 01 MOVL #1,a#*XOOF 600 ; Enable writing to Patchbits 
§ CLRL 3; Clear counter 
64 66 9 70$: EXTZ Re eo (R6), (R4) 3; Write Patchbits 
4 4 ADDL 3; Next CMI Location 
FO 52 00002000 8F AOBLSS ; £2000 Re 70$ 3; Done ? z 
OOF OCO00 9F CLRL ©. a#*x00F 6060 : Disable writing to Patchbits 
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Pa a ap ee Pt NIST OSS 
434se PP FP OOOOOOOOOOOWDWOUIUNIE LLL LLLLES 
RAPQTIOE & 2 EF PWO DWOWDOWWWDWNIOT DWOVIWYS SO PF WVNWWIWOOOWWwS 
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FreOTEOOO 
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: This routine loads PCS with the microcode. 


JSB 
«DISABLE LSB 


3; Initialize the boot device's bus edepter If not console, call a 
; CPU-specific subroutine to :onvert this data into the physical 

; addresses of the adapter’s configuration register (CR) and the 

3 seytee's control/status register (CSR). Store the addresses in the 


Initialize adapter. 


ADPINIT: 
CMPB 
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VMB = VMS Primary Bootstrap Routine 16-SEP-1984 :17:1 AX/VMS Macro v04- Pa 
v04=002 Lead Ci aicrecode oreee ribs 3:50:00 Feoove seeivme man: = 
C ; MOVL #*X00F 08000 ,R4 3 Map to PCS address on CMI 
28 8788 6 3 ¢ MOVAB et (R6) RO : Re => start of PCS Ucode in buffer 
4 DORE ma iE Tove hirae aiérese tet bt 
: Save first ress for later enable 
50 66 14 EF ¢ EXTZV #0,420,(R6),RO ; Save first 3 bits for later enable 
Be D CLR 3; Clear counter 
55 C D 72$: MOVZWL #6,R5 ; Short loop control 
8 666 —CiC*dG a. a D 74$: EXT y R1,#20, (R6), (R4)4 3; Store one 20 bit unit 
$1 36 «6 D ADDL #26 R1 ; Increment BIT position 
tf a3 OFS ORE sosete Re. fee it Holes Al olareuend 
‘ 3 Finish all microwords 
9E 50 FFF 8F C9 : BISL3 #*XFFFOO000,RO,a(SP)+ 3; Set and write bits 
; ; Read in the Cl ucode file into the allocated area. 
7D O3€ bos: mova chu ODE_STAT,RB ; Starting LBN and size 
78 O3F ASHL R9,VMB$Q_UCODE(AP) : Store size away 
20 F MOVL  VMBSQ°UCODE?4(AP),R6 =: Grab starting address 
FCC" F BSBW READF IL ; Read it in 
57 3 7D MOVa (SP)+,R 3; Restore 
at 3 POPL ® 3; Restore old devtype 
00 =é«€CC BBSS “#VMBSV_LOAD_SCS,- 3; Tell SYSBOOT to load SCS code 
00 2¢ AC 0 VMBSL_FLAGS(AP) 40 
66 AB S520COss**0 40$: MOVB R2,RPBSB_DEVTYP(R11) 3 Restore the ‘real’ boot device 
50 34 AB 00 O 50$: MOVL RPBSL 1OVEC(R11),RO ; Pick up vector address 
59 5B 00 8 MOVL 9 3 Transfer RPB address 
18 B040 16 0 § @BQOSL_MOVE (RO) CROJ + Move the boot driver 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
p 


a a a kB et kk dd dd 
FRIED at at st st st st tt a hk 0 
SOOOOOOOO0O OOO OO 0000 69 69 G9 69 09 69 69 09 SI NIN SIS NN NAA AA AAAAARA MUNI 
MEANS ODO NA NE WN 9 OOD NAME WW S OO NAN EWN 0 OD NAME WO OONOUS 
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66 AB SO! RPBS$B_DEVTYP(R11),- ; Skip over if booting from 
40 8F #BTDSK_CONSOLE 3 console block storage device 
58 «13 BEQL 15$ 
51 20 AB SCO7D mMOVa RPBSL_BOOTR1(R11) ,R1 3; Pick up original R1/R2 
> @& CVTWL = CPU_W SAVE _CSRS(RB) .RS ; Calculate address of a 
6845 16 JSB (R8YCRS) 3 CPU-specific routine to 
; calculate and save boot device 
; and adapter's CSRs in RPB. 
66 AB O91 CMPB RPB$B_DEVTYP(R11),- : Skip over if booting from 
20 SO TOSE_WSCCI ; HSC/CI adapter 
0B 13 BEQL 10$ 
50 5C AB 88 0 MOVL RPBSL_ADPPHY(R11) ,RO ; Get ADP CSR address. 
51 04 AB 0 CVTWL = CPU_W INIT ADAP (RB) RI ; Calculate address of a 
6841 16 0 JSB (RBYCR1) 3 CPU-specific adapter init. 
; routine and call it. 
50 4 AB 00 10$: MOVL RPBSL_IOVEC(R11) ,RO ; Pick up vector address 
0 aC 00 MOVL § VMBSQ"UCODE+4 (APS ,- 
8 AO BQO$L _UCODE (RO) ; Transfer the ucode address 
51 1€ AO 00 MOVL BQOSL_UNIT_INIT(RO),R1 ; Pick up any possible routine 
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VMB - VAS Primary Bootstrap Routine 16-SEP-1984 217: AX/VMS Macro V04- P 
v04-002 Load C1 aicrocode = oe th 90:45:38 YBOOTS, SRCIVRB MAR: sa 
= oe 48 BEQL 15$ 3; None 
6041 é FA 4A EMS (AP), (RODER1] i; Do any necessary unit init 
27 '.] BL RO,15$ : All is wel | 
RROR </4£B00T-F-Failed to initialize device/> 
478 1211 15$ 
t78 15} 
78 1214 : The adapter initialization routines exit with RSB instructions. Thus, 
78 1215 ; control returns here, and proceeds to obtain the secondary bootstrap 
of : 1§ ; specification as described on the next page. 
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16-SEP-19 217: AX/VMS Macro v04 
secondary boot $ oats ri 99:05:38 Yeoors. sac VMB.MAR; 
-SBTTL Identify and read in the secondary boot image 


oe 
+ 


Current register settings are the following: 


RO-n6 = scratch 

® - address of the SCB 

R - address of the CPU-specific table 

R - scratch 

R1 - address of the Ist byte of unused memory 
R1 - address of the RPB 

AP - address of Sogendery boot parameter List 
sP - address of a 5 page stack 


Registers RO-R6 and RO are 


The next 2 paragra hs refer to an 11/780-specific function. The 
function is historical; not implemented on Later processors: 


available as scratch registers. 


The primary bootstrap now looks at a software bootstrap flag -- 
RPBSV_BBLOCK. If the flag is set, the secondar Beotatres is a single 
block from the boot device. The LBN is stored in RPBSL_BOOTR4. 

Set size of secondary bootstrap, transfer address, memory address, 
and LBN fields so that subsequent code can read the boot block into 
memory and transfer control to the code contained therein. 


If the RPBSV_BBLOCK flag is not set, the primary bootstrap must load 
a secondary Bootstrap file specified by an ASCII] file specification. 


If another boot flag -- RPBSV_SOLICT -- is set, the primary bootstrap 
asks the console user to type in a file specification. 


If the boot ae is not set, the bootstrap just selects a standard 
secondary bootstrap from the boot device. The bootstrap then calls 1/0 
subroutines that locate the file, copy it into memory above the stack, 
and transfer control to the image's transfer address. 


If we are boot ing from the console block storage device, it is 
necessary to switch the media to the system floppy or cartridge. 
Type a message on console and wait for carriage return. 


CMPB RPBSB_DEVTYP(R11),- Booting cron console block 


SB TDSE._ CONSOLE i storage device? 
BNEQ 104$ PF 
PUSHAB po fo ae pe te ; Pass first part of remove message 
PUSHAB REMOVEPROMPT ; Pass second part of message 
VL PRO ; Pass the address for the resume message 
tate ihe | Resta scseer 
3 e ar n 
103$:  PUSHAB INPBUF 3 Push address of Input buffer 
PUSHL # ; Push size of buffer 
PUSHAB SWITCHPROMPT ; Push address of prompt string 


416 
identity and read in the secondary boot ‘P-SEP-1986 {1:52:29 Ladors Sac ivmaL RAR. pet 
8 


r 

7 $ @ T ; P i “ 

1% ib oi sPpepacnaenonr rompt and wait for <ret> 
; a*A 


Force answer to r case (ASCIC string) 


Not “Y"’, ask 

Pass first part of resume message 

Pass second part of message 

; Pass the address for the resume message 


? 


sof ie 
id 


S 
=> 
RRss 
“ 


Sarma e now 


i ue, ist interes 
ar s 
00 4 5 10468: B8RW $ S And continue 


Seeg; Wesrautms to print a message with a volume Label stuck in the 


Input: R9 => two longwords containing the addresses of the front 
and rear parts of the message (two ASCIZ strings) 


; Push arguments for O10. 


05$: 


} 
1 
1 
1 
1 
1 
1 
1 
BE C1 
BE (1 
BEC] 
1 
BEC 
4 
0D : 1 SHL R11 + Push phony channel number. 
0D co (1 P'SHL = #% ; Physical Feed mode. 
DD : ; o " “ADLBLK 3 goed yearees block function. 
; Star " 
7E 0200 a cé 1 MOvViwL Fy (SP) 3 Transfer size in bytes. 
0D ce cust R10 ; ffer address 
0000° CF fe 03 ; a £6 BC "ga10 3; Call a bootstrap O10 routine. 
pS 1 : ERROR </£B00T-F-Unable to read console volume/> 
7¢ FE 1 101$: CLROQ =(SP) 3 buffer means print only 
OD 1 PUSHL (R9)¢ ; Move address of first message 
"CF fe 1 CALLS @#@ PODSREARPRONPT ; Print the message 
99 108 5a 1 VAB 672(R10),R 3; Point R5 at the volume Label 
c (71 MOVL #12,R0 i; Length of volume Label 
51 654 1 MOVAB (R5SCROJ,R1 : Point R1 one past the end 
ee 13° «1 201$ v8 =-(R1),R z; R2 contains the byte 
1 + 1 ? BEQL 3018 ; Byte is null, skip it 
52 91 18 131 ¢ a*a’’ **R2 ; Is it a space 
1 18 #1 \§ BNEQ 401$ ; End of name found, print it 
‘350 Oo‘ 1D 1313 301$ SOBGTR 8 gore 3; Do the whole string 
1 3 ' 13 8 501 ; No name, don't bother not printing it 
01 al % 5 1 16 401$: CLRB 1(R1) ; Put a null after the string 
C 131 CLRO =(SP) 3 ont buffer is print oy 
0D 1 13 PUSHL a 3; RS => front of volume Label 
0000° CF 9 FB 131 CALLS #3,W*BOOSREADPROMPT 3 Type the first string 
7¢ 1320 501$: CLRG -<§P) : NULL buffer means print only 
§ OD 1321 PUSHL (R9) 3; Pass address of second message 
0000° CF 3 fe 1 ; CALLS #3,BO00SREADPROMPT ; Print the message 
0 1 RSB 
1393 
1 $ 3 The next code paragraph is historical: refers only to the 11/780: 
: ‘ 3; If the boot block flag is set, prepare 1/0 input registers. 
1 & 
03 €1 O5 1330 20$: BBC @RPBSV por ork - : If the boot from boot block 
30 AB 53a 1331 RPBSL_BOOTRS(A11),- : flag is not set. proceed to 
0D 53¢ 61332 TEST_SOLICIT ; test the solicit bit. 
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Identity and'read in the secondary boot '$-SEP-1986 {1:50:29 Eauovs: swe ivmas mans ~ 


55 02 00 MOVL #285 ; block to go, and transfer 
3; address from start of block. 
58. at ROVL BOSS) BOGTRS (AIT) RG ; Get boot block 
59 9 MOVL = #1 R t Set block size to 1 block. 
01 BRW READIN_BOOT : Proceed to read in block. 


f the “solicit ier secondary bootstrap file’’ flag is not set, 
ust use a predefined file specification. 


—e GeGe Ge Ge 


EST_SOLICIT: Check for solicit. 
BBC Ag 


os €1 #RPBSV_SOLICT,=- : solicit’’ flag is not 
30 1 RPBSL_BOOTRS(R11),- : set, just use a default file 
1 DEF AUCT_SECOND : specification. 


To solicit a file name, call a device-independent subroutine that 
writes a proaet string to the console terminal, and then reads the 


user typed name. All device specifications are ignored. 
68 8 oF PUSHAB poget FILECatt) ; Set address of input buffer. 
2 4 PUSHL #3 : Set maximum character count. 
OBCO'CF PUSHAB NAMEPROMPT ; Set address of prompt string. 
0000's Bye CALLS) #3, EADPROMPT ; Prompt and read string. 
1 MOVL #1,R 3 No retry if this file is not found 
57 AB MOVAB RPBST_FILE(R11),R7 : Get address of file name string 

ae | beg F ILEBOOT 3: Go try to read the file. 


If the solicit boot flag “" no 
Usually, this file name is (SYS 
diagnostic boot flag is set, th 


set, use a default file name string. 
G77 snoet ENE, Rowever 


t 
Ex if the 
© e name is CSYSMAINTIDIAGBOOT.EXE. 


EFAULT_SECOND: ; Use default file name. 
MOVAB ILE,R7 3; Assume SYSBOOT.EXE. 


: 
3 
oR 


VMSF IL 
BBC #RPBSV_DIAG,- ; If the diagnostic flag is not 
RPB$L_BOOTRS(R11),- > set, SYSBOOT is correct. 


cop 
MOVAB DIAGFILE,R7 ; Otherwise, use predefined 
; mame of diagnostic boot. 


8; Copy the file name to the RPB. 


@wom WUNIMAMNMVIV—INO 
=~ 
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o 

wm 
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1 COPY_NAME : ; Copy file name. 
04 ¢ EXTZV #RPBSV_TOPSYS ,#RPBSS_TOPSYS,- 
59-30 AB RPBSL_BOOTRS(R11),R9”  ; Value of O-F means top level 
3 gysten directory ‘SYSO"’ = ‘’SYSF 
09 , 61 5 CMPL R9 #9 :0-+9? 
3 13 6 BLEG ~=s «108 : Branch if yes 
59 ADOL #<<“A/A/>=<*A/9/>-1>,R9 ; Add bias to make A - F 
all 9 3 108: ADDB RG PEL Set _Tersrses 3 Form ‘'SYSn"* : 
0 67 9A MOVZBL (R?).R > Size of name string 
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VRB = VAS Primary Bootstrap Routine 16-SEP-1 AX/VMS a ve P 
04-002 Identify and read in the outing” boot Sasep-19ne $3:45:29 Fooote seeivne mane or 9, 
68 aB sé 5 1 1 sooes RPBST_FILE(R11)  ; Add “SYSn”’ size and one for a dot 
| 69 AB 38, F $9 1 ; MOVB eit arost atts +1(R1 i Start directory spec 
say 4 CF ! | MOVL bolt oe dete $3 M iat - " t top level sys name 
6 AB O01 A? 1394 mOovc3 (R7) RPBST iit E+6(R att); Move name into RPB 
6E AB 3 35 36 MOVE ae LRPBST_FILE*6(R11); Put in dot 
1 3 
1 4 3 Call a device-independent routine, FILSOPENFILE to locate the named 
F 3; file on the disk. 
12 ; Registers set up are the following: 
1405 ; R7 - address of counted ascii file name string 
5 1406 ; R10 ~ address of Ist pyse of unused memory 
1405 ; R11 - address of the R 
5 1406 ; 
14 
1208 
1409 FILEBOOT: 3; Locate the file 
FAS8* 30 1410 BSBW BOOSCACHE_OPEN : Open the FILEREAD cache 
O1A 9F 05 1411 10$: PUSHAB 1(R7) ; Address of file name string. 
7E $7 A O05 1216 MOVZBL (R7),-(SP) ; Character count of file name. 
6 DE 05 141 MOVAL =(SP5,R6 ; Allocate scratch for channel 
05 1414 3; and get adr of scratch storage 
3C AB OF B2 1415 PUSHAL RPBSL_FILLBN(R11) ; RPB fields that receive file 
5 1218 3; statistics during OPEN. 
6A ODF $28 128 PUSHAL (R10) : oe we buffer at end of 
0200 CA DF OS 1219 PUSHAL “X200(R10) : oy file header buffer at 
OSBA 1420 3; end of memor ¥ 
04 A6 «ODF «(«OSBA OCO1421 PUSHAL 4(R6) ; Address in file name desc. 
66 ODF O5SBD 14 ; PUSHAL (R6) ; Address of phony channel. 
0000' CF 5 FB OSBF 14 CALLS #5,FILSOPENFILE ; Call FILREAD to locate file. 
5E .< 5C4 1424 ADDL2 #12,SP ; Clean up scratch space 
48 50 € 5C7 1425 BLBS RO,FILE_ CONTIG ; Branch on success. 
OSCA 14 $ 
OSCA 1427 ; 
OSCA 1428 ; File was not found. If looking up default secondary boot file in 
O3cA 1? , : SYSO top level system directory, » *- the lookup with a null TOPSYS. 
SCA 1431 ° 
0910 8F 50 81 OSCA 14 $ CMPW RO, #SS$_NOSUCHF ILE : 4 not “no such file” 
11 i Back 14 BNEQ 0 3 then don't consider a second try 
OBB6'CF 9 5D1 1434 TSTB W*FILSGT_TOPSYS ; Try this eecene Lookup once only 
0B «13 3209 1435 BEQL 30$ ; Branch if no TOPSYS in use 
OBB6'"CF 94 O5D7 14 $ CLRB W*FILSGT_TOPSYS : Disable TOPSYS 
OBBA‘ CF 30 «691 «4050 14 CMPB #*A/0/ ,W*FILSGT _TOPSYS+4'; Trying to boot from (SYSO. YS icin 
C6 13 OSEO 1438 BEQL 10% : Yes, try again from CSYSEX 
Bze 1439 30$: 
SE2 1440 
OSE2 1441 ; 
5E 1226 3; File was not found. Report an error. 
ag ah 
50 0908 8F 61 OSE2 1445 CMPW #Sss “11 ne RO “No such device’ error? 
03 12 OSE? 1446 BNEQ FILOPN_ ; Greeeh if not. 
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= VAS Primary Bootstrap Routine 16-SEP-1984 17:1 AX/VAS Ma iV P 
Identify ond reed in the secondary boot ei eet 1 90:35:38 YaDOve sme iune MAR: tm 
BRid NOSUCHDEV 3; Report “‘no such device’ error. 


FAB7" 31 
FILOPN_ERR: ; Report unknown error. 

ERROR </ZBO00T-F-Unable to locate BOOT file/> 

; Output error message. 


; File was located successfully. Make sure that the file is contiguous. 
The file statistics block is’ the following: 


1447 
1228 
144 
14 9 
12 
1488 
1456 ; 
1455 ; 
S15 1489 
Z few mocanomoancananeeeeomc 
Oe 1328 ; ; starting LBN H (0 if file not. contiguous) 
; : size in blocks : 
1460 ' i in block ' 
be 1461 4 pw eran erm enr rn newer on wrees + 
S13 1468 
Oe 1498 ASSUME RPBSL_FILSIZ EQ RPBSL_FILLBN+4 
06 1466 FILE_CONTIG: : Test for contiguity. 
AB 7D 06 1269 MOVa RPBSL_F ILLBN(R11) ,R8B ; Get file Statistics. 
38 DS 06 1468 TSTL R8 : Contiguous file? 
2 12 06 1469 BNEQ READ_HEADER : Yes, continue. 
oe 1029 ERROR </%BOOT-F-Bootfile not conti uous/> 
; Output error message. 
aes 178 
063D 1474 ; If the software boot control flags indicate that that transfer 
063D 1475 ; address of the secondary bootstrap is stored in the image file's 
063D 1476 ; header block, read that header block. Otherwise, assume that the 
06350 1477 ; transfer address is simply the Ist byte in the image file. 
$8 ere | 
063D 1480 READ_HEADER: ; Read header if necessary. 
55 D4 063D 1481 CLRL 8 ; Assume no transfer address. 
06 €1 063F 1en6 BBC #RPBSV_HEADER,- : If no header requested, 
30 AB 0641 148 RPB$L_BOOTRS(R11),- 3 then just branch past header 
iH 0643 1484 READIN_BOOT : reading code. 
A DO 0644 1485 MOVL R10,R6 3; Start of free memor 
01 DO 0647 1486 MOVL #1,R9 ; Header is always ealy 1 block. 
FA73° 30 064A 1487 BSBW READF ILE 3; Read header block. 
C 48 7D 064D 1488 MOVQ RPBSL_F ILLBN(R11) ,R8 ; R8 = Ist LBN, RY = block count 
5 7D 0651 1489 mMOVa RY, ; R2 = block count, R3 = hdr adr 
F9A9® 30 $636 1o39 BSBW BOOS IMAGE _ATT ; Get image attributes 
0657 1336 ; R1 = image header block count ‘ 
o27 ret 3; R2 = size of file in blocks excluding symbol table and patch text 
£8 3} 33 57 1495 MOVL R1,RPBSB_HDRPGCNT(R11) ; Store image header block count 
5 -¢ 5¢ 1638 SUBL3 R1,R2,R9 3; Blocks in image after header block(s) 
58 51 C¢O 0660 149 ADOL R1,R8 ; LBN of first Block beyond headr block(s) 
02 AA 3C 0665 1498 MOVZWL IHDSW_ACTIVOFF(R10),R1 ; Get offset to image 
67 1499 3: activation data in header. 
5A CO 06667 1500 ADOL R10,R1 :; Form transfer vector address. 
61 DO 066A 1501 MOVL (R15,R5 ; Get transfer address. 
66D 1206 
66D 1503; 
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6D 1504 ; Now read in the file. If the file is Foe large for the remaining 
66D 1505 ; memory space, see if the required additional pages are usable. 
re¢3 i $ :; If they are, use them. If not issue a fatal diagnostic and HALT. 
230 ! 3 ; Registers set up now are the following: 
66D 1510 ; R5 - transfer address 
66D 131) 3 7 - starting LBN of file (after header) 
66D 1 \§ 3 Rg - size of file in blocks 
66D 1515; R10 - address of ist pyte in free memory 
66D 1514 ; R11 - address of the RPB 
66D 1313 3 AP = secondary boot argument List 
ane 
soe 1318 READIN_BOOT: 
066D 1520 BRW_PSECT READIN_BOOT_1 
sss 
F997" 31 gege BRW READIN_BOOT_1 
5 Steer ange Program Section 
+44 Ch Pp Secti 
seed *' 5 -PSECT $$$$00B00T,LONG 
0007 READIN_BOOT_1: 
0007 1352 
0007 1353 ; The following code disables XDELTA and sets up to read the secondary 
0007 1524 ; bootstrap in over most of VMB. The picture of memory is still 
0007 1525 ; preserved for backwards compatibility. Only the size of the primary 
0007 15 $ ; boot is smaller. 
O00? 1898 
57. Q000°CF DE 0007 1362 MOVAL OVERLAY START,R7 ; End of all drivers, page aligned 
50 *. 48 op se 1399 nove RPOSO _PFNAAPCRIT) RO 3 Bescriptor for PFN bitmap 
° ; Save a co 
51 04 O89 0018 1338 ROTL #9,#BITMAP_PAG_CNT,R1 ; Max pre-al located byte count 
sn 3 it 153 CMPL R ; Use the smaller for the 
03 15 OO1A 1534 BLEQ 208 ; backward compatible | 
50. 0651) =O S«2O01C:)=—1535 MOVL R1,R0 ; maximum &mb bitma : 
51 0200 C7 DE Oo1F 1536 208:  MOVAL *X200(R7),R1 : backward comps"ible bitmap | 
44 AB 5 D 0024 1537 MOVa RO, RPBSQ_PFNMAP(R11) ; Store new descriptor for small bitmap 
= 3 D1 8 8 1 3 CMPL R3,SP ; If this is a large bitmap, 
: 14 B BGTR 308 : then it is above VMB 
52 0 7D Q02D 1540 MOVQ RO,R2 ; Otherwise use the new 
14 AC a 7D 0030 1541 30$: MOVQ R2,VMBS$Q_PFNMAP (AP) :; descriptor of the small bitmap 
50 020060 dE 0034 1348 MOVAL  *X200(ROT,RO ; Additional page of SCB to move 
55 DD 0039 154 PUSHL R5 ; Preserve this from MOVC ; 
OIFC'’CF 6D Dee 1544 INCL MUST_HALT 3; Disable restart from ERROUT 
67 OO00'CF 5§ 2 O3F 1545 MOVC3 RO,BOOTHIGH, (R7) ; Move the SCB and pre-ailocated bitmap 
2 A 0045 1368 POPR “M<R5> ; Restore image start offset 
SE 0600 ¢ —E 0047 154 MOVAB <STACK_PAG_CNT®*X200>(R35,SP ; Move stack adjacent to bitmap 
5A SE 00 4C 1368 MOVL SP,R10 :; First free address above VMB 
56 5A (0 (004F 134 MOVL  R10,R6 : Buffer for read 
8 28 1550 . 
052 1551; 
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| 
1 g ; WiLL the desired number of blocks fit in the space remaining in the | 
1555 ; pre-tested 64kb of memory? If not, check that the additional pages 
2 ! : ; required are usable. If they are, then read it all, otherwise quit. 
Ss AES nck sest F0 
50 58 i ae." $2 1 38 * ROTL $c 3459) R11 RO 3; PFN for RPB 
50 7FA DE be 155 MOVAL 127(RO),RO 3; Last PFN guaranteed to be good 
51 A 1 4 5A 1209 ROTL #<32-9>,R10,R1 3; Starting PF™ for rea | 
te. wa: OSE 1561 ADDL R9,R1 ; Last+1 PFN needed to be good 
g 11 0061 1 86 BRB 0 ; Zero or more iterations 
1E 18 BC 0 €1 0063 1565 10$: BBC RO, @VMB$Q_PFNMAP+4 (AP) , SECOND TOO_BIG ; Branch if cannot 
068 1564 ; read the entire secondary boot 
F750 651 F2 006 1302 308: AOBLSS R1,R0,10$ ; Check the next page 
06c 1 $6 
006C 1567 ; 
006C 1568 ; Disable XDELTA, no debugging from here on. The following read will 
Beet 1292 3; overwrite the XDELTA code. 
06C 1570 ; 
006C 1571 
28 AZ? = 0125'CF 9E 006 1378 MOVAB BOOT_FAULT+1,“X28(R7) ; Shut off XDELTA TBIT handler and 
2C AZ =0125°CF 9—E 0072 157 MOVAB BOOT FAULT+1,*X2C(R7) ; BPT handler in new copy of SCB 
11 57 DA 0078 1574 MTPR R7,#PR$_SCBB ; Set new SCB address 
0078 1575 
0078 1326 H 
0078 1577 ; Now read the secondary boot code into memory 
0078 1578 ; 
0078 1579 
43. 10 0078 1580 BSBB READF ILE ; Read. 
007D 1581 
007D 1386 3 
007D 15835 ; The secondary bootstrap is now in memory. If the software boot control 
0070 1584 ; flags asked for a HALT before the secondary bootstrap gains control, 
007D 1585 ; execute a HALT instruction. Otherwise, transfer control to the new 
007D 1586 ; bootstrap image. 
007D 1587 ; 
007D 1588 
09 +€1 OO7D 1589 BBC #RPBSV_HALT,=- : If boot flags don't call for 
30 AB 007F 1590 RPBS$L_BOOTRS(R11),- : halt, just transfer to new 
01 0081 1591 START SECOND ; bootstrap inope. 
00 et 1236 HALT ; Otherwise, HALT. 
0083 159 
0083 1594 START_SECOND: ; Transfer to secondary boot. 
654A 17 0083 1595 JMP (R5)CR10) 3; Execute JUMP. 
0086 1596 
0086 1597 ; ae 
0086 1598 ; Secondary bootstrap does not fit in the pre-tested 64kb and 
0086 1599 ; one or more of the required adjacent pages is not usable. 
0086 1600 ; 
0086 1601 . 
0086 1006 SECOND_TO0_BIG: d ; 
0086 1 ; ERROR </%BOOT-F-Boot file too big/> 
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1605 

1906 ; 

1608 3; No such device error reporting. 

1609 ° 

1610 NOSUCHDEV: ; "No such device’’ I/O error. 
1611 ERROR </%BOOT-F-Nonexistent drive/> 

1612 ; Output error message. 
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-SBTTL READFILE, Reads bootstrap file in large chunks 


+ 
+ 


Functional description: 


Calls the device-independent bootstrap 2/0 routine to read 
a file. Divides the file into pieces as large as possible, so 
that the read is a small number (Like 1) of DMA transfers. 


Inputs: 
R6 - buffer address 
R8 - logical block number (LBN) 
Ro = number of blocks in file 


Implicit inputs: 
10_SIZE = Largest number of blocks possible in single transfer 


Outputs: 
Registers R1-R4, and R5 must be preserved. 
R6 - buffer address | peg past last byte read 
R8 - LBN updated to block after last block read 


R9 - blocks in tile (reduced to number not read) 
Implicit outputs: . 


BERS S EWU AAAI ARPOPUPNPPPN 4 


NAA EWN OS OD NAME WIN 0 OD NAME WIN #0 OD NAUE WIN ( OOONAUE 


READF ILE: 


SOoooooooooooooo SSSSsssssssssssss 
POVOIOIOOIOIDIOOIODOOOOOOAQAOAOOAOAAOAAAAAAOOAAAY 


MOOOST GWDEL. & LUN SP VINVOQOOCOCOCOCOCOCCOOCOCOOOCOCoOoOoO 


Read file into memory. 


DDD ADADADD AANA AEA APARNA AID PDIP SAPS PPP PP APPS SASSO SSS. 


me a a a at a a 4 ts 2 4 ts = = 4 4 3) — 9 1 1 YY SY YH YH A HY SY SS 


10 4 BSBB READX 3; Do the actual read 
E8 45 4 BLBS RO,10$ ; Success a 
B81 O0C 4 CMPW #SS$_NOSUCHDEV,RO ; “No such device’’ error? 
13 00C 5 BEQL NOSUTHDEV ; Branch if yes. 
00C 5 ERROR <\2ZBOOT-F-1/0 error paeting boot file\> 
OF 5 ; Output error message. 
05 OOF 53 10$: RSB 
OF 5 
OF 55 READX: 
9A F 5 MOVZBL 4 SIZE ,R7 3 Assume maximum transfer size. 
D1 of 5 CMPL R7,R9 3; Minimize with file size. 
15 F 3 BLEQ 10$ ; Branch if file larger than 
OF 5 3 maximum transfer size. 
dO of 269 MOVL R9,R7 : Set to remaining file size. 
1 006 10$: ; Push arguments for Q10. 
DD 01 66 PUSHL R11 ; Push phony channel number. 
DD 01 664 PUSHL #0 3; Physical read mode. 
DD 01 665 PUSHL #10$_READLBLK ; Read logical block function. 
D 01 $ O38 PUSHL 3; Starting LBN. 
Cc Q1 66 OTL #9,R7,-(SP) ; Transfer size in bytes. 
DD O10C 1668 PUSHL R ; Buffer address 
C 1 3 4 ADDL 4(SP),R6 ; Update buffer address. 
C 11 670 ADOL R7,R8 ; Update LBN. 
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0000°CF F 115 1671 CALLS @# 0$Q10 ; Call a bootstrap Q10 routine. 
01 98 EB 11A 1976 BLBS +9 ttt :; Continue on ouecess. 
tS Bal 
11E 1675 208: : Read more file if any left. 
7 TF 2 81 1676 SUBL R7,R9 ; Decrement blocks remaining. 
90 14 =O} 167 BGTR READF ILE : Continue if not done. 
05 01 1978 RSB ; Return to caller when done. 
152 }880 
2 126 1681 ; Entr y Paine for reading a single logical block from a device. Needed 
124 16 ¢ 3 by th ile open routine. 
124 1683 ; 
1246 lone 
0 : 1685 SET_PSECT <YFILEREAD,BYTE> 
124 3 
3 : j tteee Change Program Section 
sate + -PSECT YFILEREAD,BYTE 
0000 1686 
03C0 0000 1687 ENTRY FILSREAD_LBN, “M<R6,R7,RB,R9> 
0002 1688 
0002 1689 
56 08 AC DO 0002 1690 MOVL BC AP) ,R6 3; The buffer address 
58 04 AC DO 0006 1691 MOVL 4CAP), "RB ; The LBN to grab 
59 O01 0° Q00A 1698 MOVL #1, Ro ; One block only 
O0E4* 0 sit 169 BSBW READX ; Do it 
0010 1694 RET ; Leave 
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SET_PSECT <YBTMEM 


; tenes Change Program Se 


~LONG> 


ction 


-PSECT YBTMEM,LONG 
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: Map CPU identification codes to CPU-specific data tables. 


CPU_CODES: 
WORD 0 
CPu_ IDENT- 
LABEL= 
TABLE= 


CPUL wet” 


CPU 
780 


CPU_IDENT,= 
ies iti 
LE=730" 
CPU_IDENT 
LABEL= CPU_ 
TABLE=790" 


CPU_IDENT,- 


LABEL=CPU_ 
TABLE=8SS 


_CODES.- 
_CODES,- 
CODES,- 


CODES,- 


CODES,- 


Bete Ge 


> Tables of CPU-specific information. 


CPU_DEF LABEL =780 
CPU_DEF LABEL=750 
CPU_DEF LABEL=730 
CPU_DEF LABEL=790 
CPU_DEF LABEL=8SS 


CPU yates geht table. 
Code is not valid. 
Identify 137580" (code 1). 
Name of table. 

Table address. 


Identify 11/750 (code 2). 
Name of table. 

Table address. 

Identify 11/730 (code 3) 

Name of table. 

Table address 

Identify 11/790 (code 4) 

Name of table 

Table address 

Identify 11/8SS (code 5) 


Name of table 
Table HA woe 


11/780 CPU-specific 
11/750 CPU-specific 
11/730 CPU-specific 
11/790 CPU-specific 
11/8SS CPU-specific 


table 
table 


: Tables of cpu-specific time-wait data cells values. 


TENUSECTBL: 
-BYTE 4 
BYTE 1 


; Ten riageaas ti loop counter - 


11/7 28 11/785 value 
11/750 val 


table. 
table. 
table. 


om 


tit 
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AE 17 -SBTTL Test memor 

SAE 1989 . 

6AE 1760 ; ++ 

6AE 1761 ; 

eas 1706 3; Functional description: 

6AE 1764 ; This routine tests a given range of PFN's and builds one or 

6AE 1765 ; more bitmap pages. Each bitmap page address is recorded in 

oe 1706 3 the corresponding long word in the bitmap page address array. 

6AE 1588 3; Calling Sequence: 

6AE 179? : 

6AE 1770 ; JSB BOOSTEST_MEM 

6AE 1771; 

O6AE \77¢ ; Inputs: 

O6AE 1773; 

O6AE 1774 ; Re = address of page test routine 

O6AE 1775 ; R3 = number of pages to test 

O6AE ieee : R9 = starting page number . 

O6AE 1777 ; R11 = address of Restart Parameter Block 

} Q6AE 1778 ; BITMAP_VEC_PTR = contains the base address of the bitmap 
’ Q6AE 1779 ; page address array. ° 

Q6AE 1780 ; SECOND_PARAM = is the address of the Secandary Boot parameter 

O6AE 1781 ; List. The lowest and highest PF‘s seen are to be 

O6AE 17ee 3 recorded here. 

O6AE 1783 ; 

O6AE 1784 ; Outputs: 

QO6AE 1785 ; 

O6AE 1786 ; RO,R1,R2,R3,R6,R9 altered 

O6AE 1787 ; others preserved 

Q6AE 1788 ; : 

O6AE 1789 ; Store address of newly allocated bitmap page(s) in the vector 

O6AE 1790 ; ointed to by BITMAP_VEC_PTR and indexed by the 

O6AE 1791 ; igh 9 bits of the PFN'’s covered by the bitmap page. 

06A 1738 ; Record the lowest (inclusive) and highest (exclusive) PFN's 

O6AE 1793 ; seen in the offsets VMBSL_LO_PFN and VMBSL_HI_PFN 

O6AE 1794 ; of the Secondary Boot Parameter List (SECOND PARAM). 

O6AE 1795 ; Record the highest bitmap page index used in the vector of 

O6AE 1796; bitmap page addresses (BI TMAP_HI_INDX). 

O6AE 1797 ; 

O6AE 1798 ;-- 

O6AE 1799 

Q6AE 1800 ; Neate 

Rens 199) 3 Scratch storage offset cefinitions 
6AE 1 § : 

O6AE 180 SOFFSET O,NEGATIVE,<- : 
6AE 1804 NXT_PFN,= ; Starting PFN for next segment of bitmap 
6AE 1805 ~ NXTPAGCNT,- + Page count remaining 
6AE 1906 PRETST_PFN,- ; Pre-tested starting PFN 

AE 180 PRETST_CNT,= ; Pre-tested page count ; 
6AE 1998 PAGTST,- ; Address c* p.ge test routine 
6AE 180 <SCRATCH_SIZE,0>- ; Size of seratch area 
6AE 1810 > 

Free NXT_PEN: 

FFF NXT_PAGCNT: 

FFFG4 PRETST_PFN: 

FFFO PRETST~CNT: 
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FFEC PAGTST: 
AA 1811 SCRATCH_SIZE: 
6AE 1 1 BOOSTEST_MEM:: 
aaa8 8F BB Q6AE 181 PUSHR #*M<R4,R5,R7,R8,R10,FP,AP> 
5C . “gf D 682 1814 MOVAL SECOND. PARAM, AP ; Point at Secondary Boot Parameter List 
D Ze) 2 687 1815 MOVL SP,FP ; Use FP as a local pointer 
SE 14 ¢ 6BA 1 1 SUBL b-$CRATCH SIZE,SP * Reserve local storage 
Fo AD 58 17 GSC O068D 181 ROTL  #<32-9>,RT1,PRETST_PFN(FP) = Set start of pre-tested pages 
FO AD 01 07 «9 «(06C2 1 18 ROTL  #7,81,PRETST_CNT(FP)  ; 128 pre-tested pages 
EC AD 2¢ DO 06C? 181 MOVL_ R2.PAGTST(FPY ; Save address of page test routine 
50 59 2 C1 6CB 1820 ADOL3 ROR ; Last + 1 PFN 
10 AC «650 —D1sO6CE 1821 CMPL RO, VMBSL_HI_PFNCAP) ; Higher than Last highest? 
06 15 0603 1 : BLEQ § =: 10 ; Branch if not 
10 AC 50 00 0605 1 MOVL RO, VMBSL_HI_PFN(AP) ; Yes, record the highest value 
Oc AC 59 Di 0609 1824 108: CMPL R9, VMBSL_LO_PFN(AP) :; Is the starting PFN smaller than 
0600 1825 3 the currently recorded smallest? 
06 18 O6DD 18 § BGEQ 20$ : Branch if not 
Oc ac 59 00 Bene \3 5 MOVL R9, VMBSL_LO_PFN(AP) :; Yes, record the smallest one seen 
eet 1829 NEXT_BITMAP: 
52 59 OC 00 EF O6€3 1830 TZV. #0, #12,R9,R2 ; No. of pages from beginning 
O6E8 1831 ; of bitmap page (4096 bits/page) 
53 2g CO O06E8 1336 ADDL R2,R3 ; Page count is larger by that amount 
_. 5 DO O6EB 183 MOVL R3,R1 3; Save this page count 
50 01 9¢ 9C QO6EE 1834 ROTL #12,4#1,R0 3; Max of 4096 pages per bitmap page 
ee D1 O6F2 1855 CMPL R3,RO 3; More than a bitmap's worth? 
03 15 O6FS5 1836 BLEQ §=-:10 : Branch if not 
53 50 34 O6F7 1837 MOVL RO,R3 : Yes, use the max 
FB AD 51 53 C3 O6FA 1338 10S: SUBL3 = R3,R1,.NXT_PAGCNT(FP) ; No. of pages left for next iteration 
\ im >. cs O6FF 183 SUBL R2,R3 ; Actual no. of pages to test 
53 59 CO 0702 1840 ADOL R9,R ; Last + 1 PFN to be tested 
FC AD 53 00 0705 1841 MOVL R3,NXT_PFN(FP) ; Save for next iteration if any 
5A 59 F4 BF 78 0709 1366 ASHL #-{2 R9,R10 : Index to bitmap page address array 
O1E8'CF 3A D1 O70E 1845 cMPL R10.61THAP_HI_INDX i Is this the highest index seen? 
: Branc no 
O1EB"CF SA 00 0715 1845 MOVL R10,B1TMAP_HI_INDX ; Keep track of the highest index 
56 00 D2 O7IA 1846 208 MCOML #0,R ; Bitmap page address not set yet 
30 AB «O07~=SC EO «(0710 «1847 BBS #RPBSV_NOTEST,RPBSL_BOOTRS(R11),- ; If not testing memory 
49 Bf } 1308 INIT_BITMAP ; then fill in bit map as all good 
07 1850 ; 
07 1851 ; Test each page for gross errors unless RPBSV_NOTEST is set. For each 
4 1836 3; page available and good (if tested), set the corresponding bit in 
7 18535 ; the PFN bitmap. 
0735 188s | 
07 1886 MEM_LOOP: 3; Test one controller's worth. 
F4 AD 59 D1 O7 185 CMPL R9,PRETST_PFN(FP) ; Is this a the next pre-tested page? 
0 12 0 ¢ 38 BNEQ = TEST_PAGE : Branch if not, go test it 
07 1860 ; 
07 1861 ; Just handle these pre-tested pages one at a time. There are only 
4 1 6¢ ; 128 of them, and handling them as a unit means they are restricted 
7 1865 ; to being in the same bitmap segment. It is required that they be 
7 1864 ; in one controller, but this further breakdown into 4096 page units 
07 1865 ; which fit into a one page bitmap is artificial. 


—— a 


K 1 
= VMS Primary Bootstrap Routine 16-SEP-1984 00:17:15 VAX/VMS Macro v04-0 Page 41 
Test memor; : ety 90:35:58 feoors sre VMB.MAR; . (12). 
7 1 $6 $ 
7 186 
F4 AD 06 7 1 oe INCL PRETST_PFN(FP) : Yes, step to next PFN 
11 FO AD F 728 1 § SOBGTR PRETST_CNT(FP),GOOD_PAGE ; Count these pages 
72F 1870 ; Treat it as good, don't retest ‘ 
F4 AD 60 o¢ 72F 61871 MCOML #0,PRETST_PFN(FP) ; No, more pre-tested pages left | 
1 4 : es rest mate GOOD _PAGE ; Last pre-tested page is good too 
ie. a. Be Be 1874 = ASHL #9 ,R9,RO ; Convert page # to physical address 
51 01 06 9C 0739 1875 ROTL #6,41,R ; Loop counter for 64 quadwords. 
EC BD 16 0730 1 i: JSB @PAGTST (FP) ; Test this page 
740 1877 GOOD_PAGE: :; Good page here. 
56 05 0740 1878 TSTL R6 : Is the bitmap set up yet? 
27) 3619 ~0742 1879 BLSS INIT BITMAP ; Branch if no, must init one 
0744 1880 COUNT_PAGE: 
03 66 59 €2 toe: 1 4 BBSS R9, (R6) ,NEXT_PAGE ; Set bit in bitmap; do next page 
4c D6 tot : S6 INCL RPBSL_PENCNTTR11) ; Increment good page count. 
0748 13ee 3 
0748 1885 ; If more pages remain in this bitmap segment, continue Looping. 
0748 1886 ; 
0748 1887 
0748 1888 NEXT_PAGE: : Do next page. if any. 
0359 53 F2 0748 1889 S$ R3,R9,MEM_LOOP ; Process next page if any 
074F 1890 CHK_NEXT BITMAP: 
59 FC AD DO O74F 1891 AOVL NXT_PFNCFP) ,RO 3 Starting PFN for next bitmap segment 
53 FB AD 00 O723 1398 MOVL = NXT-PAGCNT(FP) ,R3 ; Another bitmap segment to do? 
BA 12 O757 1 BNEQ NEXT_BITMAP 3; Branch if yes 
5E 5D 00 O7ay 1894 MOVL  FP,SP > Clean off local storage 
3580 8F BA O75¢ 1895 POPR #°M<R4,R5,R7,R8,R10,FP,AP> ; Recover saved registers 
05 Boet 1396 RSB 3; and return 
0761 1898 ; Handler that gains control when a page has gross memory errors. 
0761 Hh 44 ; Entered via a BRW from the actual machine specific handler after it 
143 4 3; has done the machine specific thing necessary to clear the condition 
0761 IDR6 | 
0761 1903 BOOSPAGE + 1 ee ; Skip current page. 
SE 5D 14 C3 0761 1904 SUBL #-SCRATCH_SIZE,FP.SP ; Restore stack pointer. 
0104 CB 06 0765 1905 INCL — RPBSL_BADPGS(R11) ; Count number of bad pages found. | 
eo 11 greg 1306 BRB NEXT_PAGE z And get the next page | 
3768 1908 ; Allocate and initialize a page of bitmap for this bitmap segment | 
Or68 1910 INIT_BITMAP: 
56 O1E4"DF4A 00 res 1911 MOVL @BITMAP VEC_PTRCR10],R6 ; Is bitmap page allocated? 
18 077 1316 BGEQ ] ; Branch if yes 
52 OlEC'CF A Ci 0773 191 ADDL3 = =R10 ° TMAP_BAS_PFN,R2 ; Desired PFN for this bitmap page 
-— > 0 0 EF Q779 1914 EXTZ2V #0,#12,R2,RO ; Bitmap page relative PFN 
51 52 =O Cc OEF 7 1915 EXTZV #12,#9,R2,R1 ; Index to bitmap page | 
51 O1E4*DF41 =O £8 1916 MOVL § @BITMAP_VEC_PTRCR1J,R1 : Address of bitmap page 
A 19 0789 191 BLSS : Branch if entire bitmap page not there 
06 61 50 €1 O7 1313 BBC RO,(R1),20$ ; Branch if desired page was bad 
78F 191 ; or not zoe tested 
56 = 52 9 78 O78F 1920 ASHL #9, R2,R6 :; Form bitmap adr from PFN 
4 11 0793 1921 BRB 30$ 
56 659 9 78 0795 1922 208: ASHL #9 ROR ; Use first good page mapped by this 


Ss es see es 
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799 ; bitmap to hold mr eceee age 
53 D 0799 30$ PUSH R3 3 Saye Last PFN to be ted te 
66 0200 8F 00 66 C 07 MOVC #0 OE) ARATE. ARO ; Init all PFN's bad 
BA O7A POPR #*M<R3> ; Restore Last PEN to be tested | 
OIE4*DF4A 856 DO O7A MOVL R6,@BITMAP_VEC_PTRCR10] ; Record adr of bitmap page wed 


GOT_BITMAP: 
ASHL 


1923 

1924 

HF 

135 
Pe. FO 8F = 78 19 - H Re ; Form byte hg + from the beginning 
50 QIFF F 780 1930 BICW aire: R ; of the bitmap to PFN 
9 c¢ 7B5 1931 SUBL RO,R6 so that BBSS PEN, (RO) will work 
30 AB 9 E1 0788 19 : BBC aRPasy NOTEST,RPBSL_BOOTRS(RI1).= ; Branch if testing memory | 
en ae oe | 
rep 13 2: ; Set bits for zy which are not to be tested, but assumed good. | 
Py | 
52 53 59 C3 O7BD 1937 SUBL3 ; Count of pages to mark good 
4c AB 32 CO Or] 1938 ADDL” OR “RPGSC_PENCNT(RI1) : Add them in as good pages | 
50 2 DO ote 193 MOVL #32, 3; Set 32 bits Eon seeres on 
51 52 1F CB O7C8 1940 BICL3) #31,R2,R1 ; Even no. gt ongwords worth 

51 7149 GE O7CC 1941 MOVAB -(R1)CR9I,R1 ; RI=R1-14R9 = Last PFN inclusive 
0700 1308 : for 32 at a tine Locg 
66 50 59 —FFFFFFFF 8F FO O7D0 1943 20$ INSV #-1 ho, RO, (R6) ; Mark these pa ags Ae | 
FFF1 59 59 51 £1 0709 1944 ACBL R1,R0,R9,20$ R9= RO+RO, If Q R1 then GOTO 20$ 
50 52 Qf 00 EF O7DF 1945 EXTZv #0 1S Ro RO : No. of bits renaining to be set 
04 13 O7E4 1946 Beal 308 ; Branch if all bits are set 
52 D& O7E6 1947 CLRL R2 : Stop the next time around 
E6 11 O7E8 1948 BRB 20$ :; Set the remaining bits 
FF62 31 O7EA 1949 30$:. BRW CHK_NEXT_BITMAP 

| 
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Implicit inputs: 

The boot device may be located on any UNIBUS, MASSBUS, or CI adapter. 
Outputs: 

R8, R11, and SP must be preserved. 
Implicit outputs: 

The RPB fields RPBSL_ADPPHY and RPBSL_CSRPHY contain the 

addresses of the adapter's register space and the boot device's 


register space respectively. For Cl or MASSBUS devices, these values 
are identical. 


imar 
s, C 
7ED 1951 -SBTTL SAVE_CSRS, CPU-specific routines 
7ED 1958 - . 
7ED 1955 ;4¢4 
7ED 1954 ; 
rep 1322 3 Functional description: 
7ED 1989 $ One routine per CPU implementation follows. Each routine 
7ED 1328 3 determines from input registers the addresses of the boot 
7ED 1959; device's CSR and the attached adapter's CSR, and stores these 
434 1960 ; addresses in the RPB. 
FED 4962: Input 
3 Inputs: 
Ope 1368 : 
Bree i : : R1 - address of the boot device's adapter 
O7ED 1966; 11/780 = <31:4> MBZ 
O7ED 1967 ; <3:0> TR number 
O7ED 1968 ; 11/750 = <31:24> MBZ 
O7ED 1969 ; <23:0> address of the I/0 page for the 
O7ED 1970 ; boot device's adapter 
O7ED 1971; 
O7ED 19 § ; R2 - UNIBUS: 
O7ED 1973; 
O7ED 1974; <31:18> MBZ 
O7ED 1975; <17:3> UNIBUS address of the device's CSR 
O7ED 1976; <2:0> MBZ 
O7ED 1977: 
O7ED 1978; R2 - MASSBUS or CI: 
O7ED 1979; 
O7ED 1980 ; not used 
O7ED 1981 ; 
O7ED 19 ¢ 3 R11 - address of the Restart Parameter Block 
O7ED 1983; 
O7ED 1984; 
O7ED 1985 ; 
O7ED 1986 ; 
O7ED 1987 ; 
O7ED 1988 ; 
O7ED 1989 ; 
O7ED 1990 ; 
O7ED 1991 ; 
O7ED 19 § 3 
O7ED 1993 ; 
8 D 1994; 
SFED 1998 
4 1997 ; 
D 1998 ; 
D 1999 ; 


DO OOOO 0 0 OO 000060 09 09 09 09 09 09 09 SINISE SI SN NIOAAAAOO 
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~SBTTL SAVE_CSR_780, Save CSRs for 11/786 
~SBTTL SAVE_CSR_730, Save CSRs for 11/7 
-SBTTL SAVE_CSR_790, Save CSRs for 11/790 


; SAVE_CSR_7 Save CSRs for |i 
3 SAVE_CSR_790, Save CSRs for 11 


Implicit inputs: 


: SAVE CSR_780, Save CSRs for 15/780 
. /790 


R1 contains the system bus address in the form of a TR number 
because TR numbers map to fixed physical addresses. 


Bus adapters on the 780 start at address I0780$AL_IOBASE for TR 0, 
and increment by “x2000 each subsequent adaptér. ONIBUS address 
space for the first UNIBUS in the configuration starts at 
10780$AL_UBOSP. The second through fourth UNIBUS start 64kb after 
the previous UNIBUS. UNIBUS device CSRs are in the Last 64kb of 
the UNIBUS address space. 


The 1/0 space Layout for the 11/730 is the same as that 
described above for the 11/780 except that the base of 
TR 0 register space is I0730$AL_IOBASE and UNIBUS 0 space 
starts at 10730$AL_UB0SP 
be configured on an 11/730. 


The 1/0 space on the 11/790 oh tens for multiple (2) SBIA‘'s. 
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Also, only one UNIBUS will ever 
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The offsets_for NEXUS within an SBI are the same as on the 11/780. 
31 For the 11/790, R1 can have a value from 1 to 16, with bits 4 and 5 
fi O36 indicating which A=bus adapter hosts the system bus. 
07 034 ; Outputs: 
07 035 
07 036 R5-R11 and AP-SP are preserved. 
07 037 
07 038 ;-- 
07 039 
07 040 SAVE_CSR_780: ; Save CSRs for the 11/780 
53 20000000 9F 07 041 MOVAL a#10780$AL_IOBASE,R3 ; Get adapter 0 space. 
54 20100000 9F 07 Beg MOVAL &#10780$4L_UBOSP,R4 ; Get UB 0 space 
2D of os? BRB SAVE_CSR_COMMON ; Join common code 
0p beg SAVE_CSR_730: ; Save CSRs for the 11/730. 
OOF 20000 9F 7 068 MOVAL a#10730$AL_IOBASE,R3 ; Get adapter 0 space 
00F C0000 9F 8 4 MOVAL a#10750$AL_UBOSP,R4 ; Get UBO space 
1D ts rt BRB SAVE_CSR_COMMON ; Join common code 
6 OD 2050 SAVE_CSR_790: 

5 20000000 9F DE O80D 2051 MOVAL a#10790$AL_I0A0,R3 ; Assume start of Ist SBIA 
5451002 ssKsCiECs«CB4, 05 EXTZV #RPBSV_ABUS #RPBSS_ABUS.R1,R4  ; Get A-bus adapter number 
53 02 19 54 F0 19 205 INSV R4 #25 ARPBSS pays : Insert’ to make physical address *teeeres 

54 00100000 5 DE 0816 094 MOVAL I0790$AL_UBOSP(R3) R4 : Get UB 0 space for this SBIA 
51 51 04 EF sh 036 EXTZV #RPBSV_NEXUS,#RPBSS_NEXUS.R1.R1 ; Extract nexus number 
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: 28 SAVE_CSR_COMMON: ; Common code from here on 
& 60 ; 
r ; Compute and save adapter configuration register address: 
A 2063 © 
9 & 64 ROTL #13,R1,R0 ; Convert TR # to adapter 
C : 065 ADDL OR ; configuration address 
D 898 MOVL RO,RPBSL_ADPPHY (R11) 3; Store in RPB 
D 5 6 MOVL RO, RPBSL_CSRPHY (R11) ; Store in device CSR too in 
0 | O89 3; case this is a MASSBUS or CI device. 
9 0; 
Ht 14 ; Read the configuration register to eqrerning whether the adapter is 
9 ie ; for a UNIBUS, MASSBUS, or CI. Bits <31:3> of the configuration register 
th 0735 ; identify the adapter type. 
B39 5078 * 
DO 0839 a78 OVL (RO) ,R3 ; Read the adapter's CR. 
9B O083C 207 ste R3,RPBSW_BOOTNDT(R11)  ; Save boot adapter's nexus device type. 
CB 0841 2078 BICL #3,R3,R0 ; Clear the bits representing 
0845 2079 3; a UBA number to obtain the 
0845 2080 3 canonical edegcer type. 
91 0845 2081 CMPB #NDT$_UBO,RO 3; Is this a UNIBUS adapter? 
13 0848 oas BEQL UBA_ABAPTER 3; Yes. Go compute device's CSR. 
05 084A 208 RSB ; RPBSL_CSRPHY already set for 
ose oes ; MASSBOS or CI, so return. 
0848 2086 UBA_ADAPTER: ; Compute UNIBUS device's CSR. 
C9 0848 2087 BISL3 R4,R2,- ; Add UNIBUS CSR value to 
oBeo tt) RPBSL_CSRPHY (R11) « base of all UNIBUS address 
3 space. : 
DS 085 090 CLRL RO 3 Get start of this ub space 
FO 085 091 INSV R3,#18,#2,R0 ; relative to UBO space. — 
cO 085 b36 ADDL RO. RPBSL_CSRPHY(R17) ; Adjust CSR address to this UB space. 
05 0858 209 RSB ; Return. 
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-SBTTL SAVE_CSR_750, Save CSRs for 11/750 


Steere 
: Add code to accept a slot number between 0 and 15 in R1. 


SAVE_CSR_750, Save CSRs for 11/750 

Implicit inputs: 

For a MASSBUS boot device, R1 contains a 24-bit address of the 
MASSBUS adapter's address space. The MBAs start at fixed 
addresses that correspond to NEXUS slots 20-23: 


MBAO “XF 28000, slot 20 


COOQOOOCCOWOOOOS 
NOUEWN—OODNAU YO 
eee 
a 
+ 


10750$AL_MBBASE 
21 10750$AL ~MBBASE+*X2000 
00; 3¢ 10750$AL -MBBASE+*X4000 
MBA “XF2E000, slot 10750$AL -MBBASE+*X6000 


For a UNIBUS boot device, R1 contains a 24-bit address of the 
boot device UNIBUS’ 1/0 pege. The 1/0 pages start at fixed 
addresses that correspond to UNIBUS adapters also at fixed 
addresses that correspond to NEXUS slots 24-25: 
UNIBUS 0 1/0 page *XFFEOOO, 
10750$AL_UBBASE, UBIO “XF30000, slot 24 
UNIBUS 1 :78 pose “xFBEOO00, 
10750$AL_UBBA E+*x2000, 
UBI1 *xXF32000, slot 25 
UNIBUS address space: 


UBIO “XFCOO00: “XFFFFFF 10750$AL_UBOSP 
UBI1 “XF 80000: “XFBFFFF 10750$AL_UBOSP+*x40000 


For a boot device in the floating space, R1 contains a 24-bit 
address of the adapter's address space. The floating adapters 
start at the CMI address that correspond to NEXUS slots 26-31: 
float_A “xXF34000, slot 26 10750$AL_FLOAT 
fivat_F “xXF3E000, slot 31 10750$AL_FLOAT+*XA000 
The routine reduces the adapter's physical address to a slot 
number from 0-15, and stores the number in the RPB for Later 
use by INIT. 
; Outputs: 


Ri-R11 and AP-SP are preserved. 
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; Implicit outputs: 
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C 21 : 
af 138 : This routine derives the slot number (less 16) for the boot 
C 2154 ; device's adapter and loads the number into RPBSL_BOOTR1. Later 
C 2155 : NIT uses the value in RPBSL_BOOTR1 as an index Tinto the RPB 
2e 1 § 3 CONFREG field to find the adapter type of the boot device. 
5¢ 31 too 
ee 133 SAVE_CSR_750 $ CSRs f he 11/750 
: 3; Save s for the " 
OOF40000 8F 51 4201 O85 161 “— CMPL R1 #107 SOSAL FLOATS - 
86 16¢ <6e10750$AL-PERNEX> ; Is this adapter in the float space? 
13 if $8 16 BGEQU 1 ; No, must be MASSBUS or UNIBUS 
OOF34000 8F 51 OD 6 164 CMPL R1 ,#10750$AL_FLOAT ; Is this adapter in the float space? 
OA sOTF BoC 165 BLSSu 108 ; No, must be MASSBUS or UNIBUS 
OBE 167 ; Read the Cont tquretven register to determine the adapter. Bits <31:3> of 
Oace be 3; the configuration register identify the adapter type. 
53 61 00 OBGE 159 MOVL (R1),R3 3; Read the adapter's CR. 
00A1 CB SC553) 9B «(0871s 2171 MOVZBW R3,RPBSW_BOOTNDT(R11) : Save boot adapter’s nexus device type. 
0€ 11 0876 1% BRB 20$ : Continue in common code 
O00F30000 8F 51 £401 0878 2174 10$: CMPL R1,#10750$AL_UBBASE : Is this a MASSBUS adapter? 
OF 1& O87F 2175 BGEQU DERIVE _UBIADBR 3; No. Go derive UBI address. 
00A1 CB 20 98 0881 176 MOVZBW #NDTS_AB, - 3; Save boot adapter's nexus device 
0886 17 RPBS$W_BOOTNDT(R11) 3; type. 
5C AB 51 DO 0886 2178 20S: MOVL R1,RPBSL_ADPPHY (R11) ; Yes, store MBA's CR in RPB. 
54 AB 51 DO O88A 179 MOVL R1,RPBSL_CSRPHY(R11) 3; And store in RPBS$L_CSRPHY too. 
40 11 433 189 BRB DERIVE_SCOTNUM ; Branch to derive slot number. 
0890 186 DERIVE_UBIADOR: ; Reduce R1 to UBI address. 
OOFCOO00 BF 51 D1 0890 218 CMPL R1 ,#10750$AL_UBOSP ; Is this UNIBUS 1 or UNIBUS 0? 
1D 1A 0897 13 BGTRU 108 ; UNIBUS 0. Go load addresses. | 
00A1 CB 29 9B 0899 2185 MOVZBW #NDT$_UB1, - 3; Save boot adapter's nexus device 
O89E 2186 RPBS$W-BOOTNDT (R11) i type. 
OOF 30000 8F C1 O89E 187 ADDL3 #10750$AL_ E.- 3; UNIBUS 1. Load the ADPPHY 
00002000 8F OBA4 138 #10750S$AL_PERNEX,=- : field with UBI1 address. 
C AB OBA9 2189 RPBSL ADPPHY (R115 
54 AB 52 OOFBEOOO 8F C9 O8AB 2190 BISL3 #<I10750$AL UB0Sh. : Create and store away the 
8B4 2191 -*x40000+°0760000>,.R2,- ; boot device's CSR address. 
8B4 136 RPBSL_CSRPHY(R11) 
16 11 aB6 133 BRB GET_UBI_ADDR ; Branch to common UBI code. 
OB 195 10$: ; UNIBUS 0. Load addresses. : 
00A1 CB 28 98 Q08B6 2196 MOVZBW #NDT$_UBO, - : Save boot adapter’s nexus device 
088B 2197 RPBSW~BOOTNDT (R11) : type. 
OOF30000 8F DO O08BB 133 MOVL #10750$AL_UBBASE ,- ; Store address of 1st UNIBUS 
5C AB OBC} 19 RPBSL_ADPPHY(R115 ; adapter. 
54 AB 52 OOFFEOOO 8F C9 O8C3 2200 BISL3 #<I0750$AL_UBO0SP- ; Calculate and load the full 
BCC Bs +*0 >,R2,> ; CSR address into RPB. 
Hy: § RPBSL_CSRPHY(R11) 
te 82 GET_UBI_ADDR: ; Obtain UB! address. 
51 5C AB DO app 05 MOVL RPBS$L_ADPPHY(R11) ,R1 ; Get address of associated UBI. 
3p oF benive or ; Derive and save slot number. 
50 51 OOF20000 8F C3 08D0 8 SUBL #10750$AL_IOBASE,R1,RO ; Get adapters offset from base 
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DIVL  #I10750$AL_PERNEX,RO 
MOVL RO,RPBSL_BOOTR1(A11) 


00 
1 


17:15 
52:29 
; of 
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/0 space. 


; Save the slot number. 
; Return to caller. 


: Divide by size of one adapter. 
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5 
Ee 1 ~SBTTL SAVE_CSR_8SS, Save CSRs for 11/8SS 
ib 
E4 18 : SAVE_CSR_8SS, Save CSRs for 11/8SS 
52 y : Inputs: 
+1 ; : Ri = B81 node number for Boot device's adapter 
4 ; R2 = BI address of Boot device's CSR if booting on BUA 
‘} : : R11 => RPB 
ES $ : Implicit inputs: 
Es 8 ; The BI physical address space is as follows: 
ages , ; 1/0 space begins at “x20000000 - symbolically IO08SSSAL_IOBASE 
Ose 4 § : Each node has an 8KB register space. The first node 
nee 3 register space begins at IO8SSSAL_IOBASE, and the next 
oar e : ; one begins at an SKB offset from Tt, and the next 8KB, etc. 
O8E4 $ ; Each node has a 256KB node space reseryed for it. These 
pare 3 node spaces begin at poxeise address *x20400000 - 
O8F4 3 : symbolically this is IO8SSSAL_NODESP. The node space 
OSES 9; for node 0 begins at this phys *¢e' address and the 
Sere re 3 subsequent ones begin at 256KB intervals. 
SBee 4g ; Outputs: 
OBe4 $3 : Registers RO - R3 modified. All others preserved. 
BEG e046 + 
Opee : 954 
OBe4 ‘3 SAVE_CSR_8SS: 
50 51 OD 78 OB8E4 51 ASHL #13,R1,R0 : Multiply node # by 8K so that 
O8E 26 ; RO contains the offset, into 1/0 
bee 37 ; space for this node's register space. 
50 20000000 of CO OBE 55 ADOL #108SS$AL_IOBASE ,RO ; RO => Node's register space. 
5C AB O50—s«éiO oer 36 MOVL RO, RPBSL_ADPPHY(A11) : Store in RPB. 
53. 60 »00 i 3 3 MOVL (RO) ,R3 ; Read node Device type register. 
53 0102 8F Bi 9 F6 2259 CMPW = @<NDTS_BUAG*xFFFF>.R3 =; See if a UNIBUS adapter. NOTE 
FB 60 3; anding with “xFFFF is to avoid 
FB 61 3; _truncation warning from assembler. 
93 is FB $¢ BNEQ 10$ 3; If NOT, branch around. 
50 52 oD FD 63 ion, MOVL  R2,RO > If UNIBUS device, RO => CSR. 
54 AB 50 DO 0900 2265 = MOVL  RO,RPBSL_CSRPHY(R11) =; Save address of CSR in RPB. 
05 0904 66 RSB 
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i -SBTTL INIT_ADAP, CPU-specific adapter initialization routine 


a 
+ 


Functional description: 


One routine per CPU implementation follows. Each routine 
nitializes the adapter for the boot device, if the adapter 


requires such an initialization. 


DODOOOOOOOOOOOSGOS 


ae 
5g i 
te 3 
| 76 | 
9 7? ; 
9 f : Inputs: 
9 : RO - physical address of the adapter 
9 : Ri-R6 = == Scratch 
9 ¢ R7 - address of the SCB 
9 3 R8 - address of the CPU-specific table 
9 4; RS - scratch 
44 S$ 3 R10 - address of the Ist unused byte of good memory 
$4 $ : R11 - address of the RPB 
344 : ; Implicit inputs: 
0905 90 : If the value in RO is identical to the value in RPBSL_CSRPHY, 
84 91; the adapter is for a UNIBUS. Otherwise, the adapter is for a 
44 3 3 MASSBUS. 
0905 34 ; Outputs: 
0303 > : R7-RB, RIO-R11, and SP must be preserved. 
Bee ss : Implicit outputs: 
905 00 : The boot device's adapter is initialized. 
0905 01; 
0905 02 ;-- 
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INIT_ADP_780, Initialize boot device adapter on the 13/788 


i z 
INIT-ADP-790, Initialize boot device adapter on the 11/7 


Implicit inputs: 


Both the NIBUS and masspus adapters must be initialized for 
he 11/780 and the 11/790. The initialization bit is in the same position 
n both the UNIBUS and MASSBUS adapter configuration register. 


This routine sets the initialization bit in the CR; then loops 
to wait for initialization completion for the UNIBUS; assumes 
immediate completion for the MASSBUS. 
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B 
I 
4 
0 
4 INIT_ADP_780: ; Initialize 11/780 adapters. 
55 O97C°CF DE 09 5 MOVAL wW*MCHK_780,R5 ; Get address of 780 mcheck handler. 
0s 11 9308 § BRB INI T_ABP_COMMON ; Go to common code. 
090C 8 INIT_ADP_790: 
55 O994°CF ODE et ; MOVAL W*MCHK_790,R5 : Get address of 790 mcheck handler. 
348 1 INIT_ADP_COMMON: 
01 pO 0911 ¢ AovL #MBASM_CR_INIT,=- 3 Set the initialize bit. Bit 
04 AO pale MBASL_CR(R 3; # is same for MBA and UBA. 
54 AB 50 D1 091 4 CMPL RO, RPBSL_CSRPHY(R11) : Is_ADP CSR address = device 
0919 5 ; CSR address? 
01 1 0919 6 BNEQU WAIT_UBA 3; No. This is a ‘ 
05 0916 Hf RSB : Yes. MBA. Return, no wait. 
Sie 8 
O31 40 : For a UNIBUS adapter, must wait for a CSR bit to be written by the 
91C 41 ; adapter before knowing that initialization is complete. 
O91e 9328 
Bore 44 WAIT_UBA: ; Wait for the UBA. 
91C 45 -ENABLE LSB 
00010000 8F D3 091 re BITL #UBASM_CSR_UBIC.- ; Did the adapter set the init 
6 9 4 UBASL_CSR(RO) z complete bit? 
F 13 ee rt: BEQL WAIT_OBA 3 No, wait longer. 
9 50 ; 
9 1 ; Now check for any UNIBUS memory that may be on the adapter. If found 
H § 3; disable the corresponding map registers. 
9 4° 
04 A7 DD 09 5 PUSHL  4(R7) : Save machine check vector 
04 A7 5 pO 09 § VL R5,4(R7) 3; Replace with a temporary 
56 E p00 092C MOVL sere 3; Save stack pointer 
Oposrr ee F (CB OQ92F 38 BICL3 #*XOOO3FFFF,- 
1 54 a 935 5 SoU RL -CSAPUT CATT). ; Get the start of UNIBUS space 
52 5 D0 0938 60 MOVL R1,R : Copy 


1 2 
INIT-ADP.790, initialize 11/796 boot dev “P-SEP-1986 41:50:09 EauorsssneSvmaLRARG Peer iby 


0 2 9 6 MOVAB ae 000(R2),R3 ; Last ne ¢ 
o 2b 9 tet ff D 328 e VL ar ints 0; UBASL_ CR(RO); gisep @ al ( gnteus map regs 
6 B SA 10$ TSTW see Bt y ng responds 
08 AO 08 AO «(0 094 4 MOVL ae SR(KO) ,UBASL_ SR(ROS ; Ear read status 
1 1 9 5 BNEQ ; Nothing ody eft higher 
52 D 9 $6 15$: CMPL RO 3; Found memory, As time in? 
1 9 § 6 BEQL 3; Yes, skip next t 
eee Dd 95 o8 TSTL paves Quer DIS ; Any registers already, disabled? 
"CF 3 tb 3a 3 17$ Rbor2 #1 Nee B UMR_DIS : "eke ook ois contete t ies to disabl | 
: : e count of regis ore o disable 
FFDD 52 0000 eS St 8 Fi 308 71 208: ACBL wie rae “Ree us ; Cont inue thru the Satie © spece 
00°C 16 78 %6 as ASHL 2.8 oUF by 16 4 nid, snitt fete 6 bits 
A 9 7 Batt Oose4 Ur : Disab 
04 A7 a 97 74 POPL ; Restore pm A ae check vector 
0 44} o RSB 3; Initialization complete. 
979 8 ALIGN LONG 
97C 78 MCHK_780: 
54 30 oO 97C¢ 7 MFPR #PRS Seirs. oR4 ; Get SBI fault status register 
00 rs 19 €5 O97F 80 BBCC #25,R ; Clear “error 1st pass’’ bit 
0 54 DA 0983 81 25$: MTPR RG ppns SBIFS : Brite back to clear SBI fault 
54 046 AE DO 0986 238 MOVL 4(§P),R% : Pick up sunmary parameter 
SE 56 DO O98A 8 MOVL 6, 3; Clear off fra 
05 54 91 098d 8 CMPB R4,#5 3: Is it Read Data Substitute? 
C1 13 0990 8 BEQL 15$ ; Yes, then it is a read w/bad parity 
CF 11 345 ; BRB 20$ 3; No, its nonexitent 


4 
i 
8 -ALIGN LONG 
9 MCHK_790: 
54  O000004A 8F DB 0994 0 MFP #PRS_EHSR,R4 
00 54 0 
4 
i 
8 
9 


5 98 
QO00004A BF 54 DA 099F 
54. CCC 3 00 O09A6 


Get error Bends tog, status register. 

Clear ‘VMS entered'’ bit. 

Write back to clear machine check. 

Pick up vacheck. | status register. 
r 


BBCC FEMSRSY _ vis R4,30$ 
30$: MTPR 
MOVL Ace roosC EMS TAT2(SP), R4 


5E DO O9AA MOVL R6,SP Clear moe ame off stack. 
B2 54 02 €0 O9AD BBS aMSTAT2$V_ IOBUFF ,R4,20$ ; Branch if NXM => no Unibus memory. 
AO 11 0981 BRB Ignore any ye error. 
bat -DISABLE LSB 
098 
et UNI_MEM_ERR 
098 0 “ERROR </ZBOOT-F-UNIBUS memory does not start at 0/> 


m 
7 


7 
+ 


J 
trap Routine 16-SEP-1984 00:17:15 VAX/VMS M ~ FE | 
Sree eet device 11/ Sasepei9ne Siissite PAROVES Magra VOkaS aoe 9 | 
-SBTTL INIT_ADP » Initialize boot device 11/750 adapter 
»SBTTL INL T=ADP 730, Initialize boot device 117730 adapter 


INIT_ADP 130. Initialize boot device adapter on the 11/738 
» Initiali 1/73 


INIT~ADP77 


tialize boot device adapter on the 1 


Implicit tnputs: 


OOOOCOCOCOCOCOCOCSCOS I 
Be Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Se 
a 
i 


ooo 


The massbus is initialized by setting the init bit in the 
MBA qcepter control register. The ni bys is initialized by 
setting the UB reset IPR. (On the 11/ the adapter of 
the boot device will always be a unibus.) 


MCK_BER = “X24 Offset into machine check frame 
or Bus gees Register 

Bit position for non-existent mem 

Granularity of the step in memory 


probe algorithm 


x = 3 
STEP = “x800 


P_750: : Initialize 11/750 sdapters. 
P_730: : Initialize the 11/730 adapters. 
eENABLE LSB 

CMPL RO, RPBSL_CSRPHY (R11) ; Is ADP CSR addr = device CSR addr? 
BNEQ 1 ; No, must be UNIBUS 

MOVL #MBASM_CR Fert ; Set the initialize bit 

MBASL_CR(RO) : 
RSB ; Done 
MTPR #0 ,#PR$_UBRESET ; Reset the UNIBUS adapter. 


Now check for any UNIBUS memory that may be on the adapter. If found 
disable the corresponding map registers. 


oO 
SP OUWUMMMMMMMOWO > OX -OOCCCCOOOOOOCO0O 


SOOOCOCOCOOOOOOOOOSOOSOOOSOSOOSOOOOSOSOS 
PPP Pooooowowowooooovnovnono 


>>>>>r>rrrrPr 
72S ONS &- Mower 


Pick up number to disable 
Address of first 
Invalidate it 

Loop until done 


#696,R1 
MOVAL UBASL_MAP(RO) ,R2 
C (R2)¢ 
SOBGTR R1,20$ 


PUSHL 4 Save machine check vector 
MOVAL B“MCHK_750,4(R7) Replace with a temporary 
VL R Save stack pointer 


M0 SP, 
BICL3 #*XOOO3FFFF,- 
anes _CSRPHY(R11) ,R1 ; Get the start of UNIBUS space 


MOVL Ri 3 opy 

MOVAB =STEP(R1),LAST_MEM : Initialize cell 

MOVAB ¢X3C000¢R2) RS ; Last 8KB of memory 

TSTW (R2) ; See if anything responds 

CMPL R1,R2 3: First time in? 

BEQL 45 3: Yes, skip next test 

azer BOOSGL_UAR_DIS 3; Any registers already disabled? 


No, oy not start at 
Yes, now the far side of a hole 


FLAG, 55$ 
Update counter 


$ 
MEM 
MOVL RO-CAST AER 


VMB 
v04-002 


FFDA 52 


00010800 8F 24 


OF 

4 08 

Oc 6E 

04 

54 26 AE 
5E 36 

B2 54 0 
020C*CF e 


= VMS Pri 
INIT_ADP_ 


0009000909 0909 SIN NINN NNO AAA AAAOOOUM 
AUS WN $$ O OONAULS WN" OOONOULS WON 


K 
ry Bootstra 1 
OBO” Taitinlice boot device 11/ Sasep-198e 


4 
4 
4 
4 
4 
4 
4 
& 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


Routine -SEP-1984 


193a533 Hebors she ivne mane 


AX/VMS Macro V04- 


Up the count of registers to disable 


Continue thru the entire space 
Find size of hole 


If that assumption 


Is it big enough? 

No, give error 

——— old machine check handler 
one 


Temporary machine check handler 
Reset machine check 


Set up 

Is this a 730 frame? 

Yes, no further check 

Save Bus error register 

Clear machine check stack frame 
Branch if parity error on Umem 
Else non-existent memory, set flag 
Continue in line 


45$: ADDL2 eqvencate O9SGL_UMR_DIS; 
208: ACB R3,#STEP,R2, 30 : 
$: SUBL2 LAST_MEMIR : 
; NOTE: This test is based on the fact that the bootdriver will only 
3 allow a maximum of 127 pages in a single 10. 
; changes, this test will have to change. 
CMPL R2,#<128%512>4STEP $ 
BLSSU TOO_MEM_ERR : 
POPL 4(R7) $ 
RSB 3 
-ALIGN LONG 
MCHK_750: : 
MTPR #*XF ,#PRS_MCESR H 
MOVL #<1QNEX> RG 3 
CMPL = (SP) ,#*xOC ; 
BEQL 3 
MOVL MCK_BER(SP) ,R4 $ 
60$: MOVL 3 
BBC #NEX ,R4,40$ ; 
MOVL  #1,MEM_FLAG ; 
BRB $ ; 
-DISABLE LSB 3 
TOO_MEM_ERR: 
ERRO </%B00T-F-Too much UNIBUS 


memor y/> 
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- VMS Primary Boot Routine 16-SEP-1984 00:17: AX/VMS Macro v04-0 Page 55 
INIT ADP. BSS” Enitialize cost device 11/° Sasepatone Soisasce PARSVES Magra, vOt50 9 38), 
aoe se -SBTTL INIT _ADP_8SS, Initialize boot device 11/8SS adapter 
ASB i ; 
Wee 138 INIT_ADP_8SS, Initialize boot device adapter on the 11/8SS 
Ae t3¢ ; Implicit inputs: 
A9B £38 3 
A Bie 
hey 639 INIT_ADP_8SS: : Initialize 11/8SS adapters. 
51 20 AaB 01 78 pare 23) ASHL #1,RPBSL_BOOTR1(R11),R1 ; ¥ a 7 ory Sesteten corresponding 
F apter e 
OOOOOOSF BSF 51 ODA mad 20g MTPR R1,#PR8SS$_BIINIT 3 Sen 4 Bl INIT command to this node. 
54 AB 50 D1 OAA 504 CMPL RO. RPBSL_ CSRPHY (R11) 3; See if a BUA. 
00 «13 OAAB 305 ae BEQL 08 : EQL He A NO. 
05 OAAD 2507 RSB 3; Return to caller. 


Bootstrap Routine ss ' 1g~sebn13 4 00:10:33 td Macro V04-0 Page (3 


- VMS Primar 
OPEN. UCODE_FALE, Find and open a ucode f ?-SEP-1984 BOOTS. SRCIVMB.MAR: 1D | 


“a 98 -SBTTL OPEN_UCODE_FILE, Find and open a ucode file on console | 
SD 
AAE 313 ; Functional description: , | 
AAE 2515 : This routine contains code common to all file opens for any file | 
~ 218 3 on the console. It also handles errors. 
ve | 218 : Inputs: 
AAE 2520: Re . Boot device type 
on : 13 R Address of vector of address 
AAE 3 5 : Outputs: 
AAE 2525 : RO Status 
AAE 25 g 3 
MAE 5858 | 
QAAE 529 OPEN_UCODE FILE: | 
OCEF "CF 8 DO OAA 530 MOUL (R3) +, UCODE_NAME 3 Set the error name 
sf & C1 OAB 531 ADOL R3,(R3)+,R1 3; Pick up name for ucode file | 
50 81 9A OAB? 25 : MOVZBL (R1)+,RO : Size to | 
7 20 7D OABA 25 ova RO. ($P) ; Form descriptor 
7E 53 5 C1 OABD 2534 ADDOL3 = R3,(R3)+,-(SP) : Temp area for the stat block | 
SA bp QACi 2535 PUSHL R10 ; Start of memory buffer area 
08 AE 7F OAC3 238 PUSHAQ 8(SP) ; File descriptor ; 
OOOO'CF O05 FB OAC6 25 CALLS #5,RTFSOPENFILE 3 Look it up on the console medium 
2450 €8 OACB 2538 BLBS RO,40$ ; Success, try to read it in 
05 63 EB OACE 2539 BLBS  (R$),10$ : If set, all errors fatal 
52. 20 91 OADI 2540 CMPB = s- #BTDS$K_HSCCI.R2 : Booting off the C1? 
OCCF'CE 46 BF 90 GAD6 9542 108: ROVE FA/F/.UCODE_SEVER Yes, ehange to FATAL | 
—s 7E 7C OADC 228 20$:  cLRQ <=<(SP) ° - : Null Inout buffer descriptor 
OCC7°CF oF 0, 544 PUSHAB UCOdE FAIL : Error text | 
OooO'cF O03 F nee 545 ALL #3 ,BOOSREADPROMPT : Report the problem 
07 63 £8 OAE 346 LBS = (R8) , 308 : If set, all errors fatal 
50 D4 OAEA 254 CLRL 3; Set possible return indicator 
52 20 91 AEC 548 CMPB #BIDSK_HSCCI,R2 ; Booting off the C1? 
01 12 QAEF 2549 BNEQ 40$ : No, finish the boot anyway 
00 nt 239 30$: HALT : Yes, **** FATAL ERROR te2* 
05 OAF 552 408: RSB 


, en 
et at hs 90:12:48 yale Macro V04-0 Page 57 


VMB - VMS Primary Bootstrap Routine 
v04-002 FIND. Cl. CPUcspecitic routine to locate BOOTS. SRCIVMB.MAR; (22) | 
vi ¢ -SBTTL FIND_CI, CPU-specific routine to locate CI port | 
AF § 3++ | 
AF 3 
~! 8 3; Functional description: 
AF 360 ; One routine = CPU yyy follows. Each routine 
~! $1 : attempts to locate a CI port on the CPU. 
AF 28 ; Inputs: 
AF 564 ; 
~' 28? : R7 Address of SCB 
ved 567 ; Implicit inputs: 
Oars 2569 : 11/780 and 11/750: RPBSB_CONFREG array | 
OAF 570 ; 11/730: No CI implementation exists for the 11/730 
a 3) 3 11/790: Knowledge of 1/0 space Layout 
OAE 378 : Outputs: 
OAF 575: CC = EQL means no CI on the system; CC = NEQ means CI present. 
OAF 576 ; RO,R1 destroyed, | 
OAF 577 ; AL other registers preserved. 
OAF 578 ; 
OAF3 2579 :== | 
ws oe | 
OAF 286 : For the 11/780 and 11/750, the size and test memory routines have set 
OAF 583 ; up an array in the RPB that contains the type code of each adapter on 
— 286 ; the system. Search that array for a CI adapter type code. 
DAES 5886 §IND_C1_780: 
OAF 587 FIND_C1_750: 
10 38 3A OAF 588 LOCC S“#NDTS_C1,#16,- 3; Look for the C1780 
0090 CB OAF6 2589 RPBS$B_CONFREG(R11) : in the CONFREG array. 
05 OAF9 2590 10$: RSB ; Return w/ condition code set | 
AFA 2591 3 appropriately. . 
AFA 236 | 
AFA 2593 FIND_C1_730: 
50 D4 OAFA 2594 CLRL RO 3: Signal no C1730. | 
05 OAFC 232 RSB 
OAFD 38 : 
AFD 23 FIND_CI_8SS: 
50 D4 OAFD 98 CLRL RO s Signal no CI8SS for now. 
0S OAFF 2599 RSB | 
0800 $00 
itd 60¢ : For the 11/790, the array of adapter type codes isn't set up until later 
080 2 ? : in the boot process. Search the SBI nexuses for a CI adapter. 
6 605 ° ENABLE LSB 
6 6 FIND_C1_790: 
1g BB 6 PUSHR #*M<R2,R3,R4> :; Save some registers. 
O% A DD 6 3 PUSHL 4(R7) ; Save machine check vector. 
04 A7 9° lt 43 $8 6 MOVAL NXMCHK_790+1,4(R7) 3; Replace with a temporary. 
4 —E OD 610 MOVL SP,R4 3; Save stack pointer. 


B 3 
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VMB - VMS Primary Boots 4 AX/VMS Macro Vv04-0 Page 58 
v04-002 FIND_CI, CPUespeci tic routine to locate mii 1984 90: 5: 8 BOOTS. SRCJVMB.MAR; . (22) 
1 0000000 8F »D0 0 611 MOVL #1079080 i 10A0,R1 3; Get address space for 1st ABUS slot. 
° 1 8F 1 DA 1 ol¢ 10$: MTPR #PR790$_PAML 9 i Request PAMM code for this phys addr. 
00000460 8F 0B OBIC 261 MFPR BPRIOOS PAMACC F Read the PAMM ccde. 
50 (04 9 ED 614 CMPZVo#P Staal aeee $_cove, ; Is there an adapter present? 
7 13 B28 616 BEQL 30 ; No, go to next slot. | 
50 ar * 5 D A 261 MOVL 10790$AL_IOACR(R1) ,RO ; Read ABUS configuration register. 
4 ED 1 618 CMPZV 4 h* RO7#10790$C_SBIA ; Is there an SBI 4 
19 $1) BNEQ ; No, go to next siet.. 
6 1; Found an SBI. Now look for a C1 adapter. 
52 000 Ci ODE 6 § ‘ MOVAL IC790$AL_PERNEX(R1),R2 ; Get addr of SBI TR #1 (#0 is unused). 
0 9¢ DO OB3SD 2624 20$: MOVL (R ). : Read gontta, register on SBI. 
8 91 nee 625 CMPB RO, S*#NDT$_CI ; ss this a CI adapter? 
24 «#©13)=«(UB4 6 § BEQL 4 :; Yes; we found one. 
38 2000 C2 DE 0B4 627 25$: MOVAL I0790$AL PERE (A2) Re ; Step to next TR. 
20 «65 06 OC €D 4 628 CMPZV -#12,.46,R2,#°X20 ; Have we looked at all slots on this SBI? | 
ec 19 poet , BLSS 208 ; Not yet, go on to the next. 
983) ee : Looked unsuccessfully at all slots on this SBI. See if there's another SBI. 
51 02000000 ) DE 0851 26 6 S0s: MOVAL IO790$AL_PERABS(R1),R1 Step to next ABUS slot 
51 28000000 8F 01 $828 ose CMPL #107908AC_ 10A0*<10790$AL. “eon $*4> 2 Pa. X ve, Looked at 
3 ossible slot 
B46 14 OBSF O36 BGTR 10$ 3 Not "poss go on to next 
04 A7 BE DO 0861 263 MOVL (SP)+,4(R7) : Restore machine check handler to SCB. 
50 D4 0B65 O38 CLRL RO ; Signal failure. 
07 11 94 oz8 BRB 50$ 3; Return. 
0869 26 441 Come here on finding a C1 adapter. 
04 A? BE DO 0B69 $8 ios: MOVL (SP)+,4(R7) 3; Restore machine check handler to SCB. 
50 01 00 OB6D be MOVL #1,R0 : Signal success. 
1C BA 0B70 2645 50$: POPR #*M<R2,R3,R4> 3; Restore registers. a 
a fe 
; 
pa? S28 3 Non-existent memory machine check handler. 
0B73 2650 ° ALIGN LONG 
0874 2651 NXMCHK_790: 
50 O0000004A 8F DB O0B74 $36 MFPR #PRS_E RO ; Get error Mandl tng. 8 pryen register. 
0S €5 0878 265 BBCC RENSRSY. vig. RO,100$ ; Clear ‘VMS entere 
0000004A ef 50 DA 7F 2654 100$: MTPR +e PR$_EHSR 3 Write back to clear a6! FG check. 
gE s@ 86 2655 MOVL $p : Clear mcheck frame off stack. 
BA 11 638 Bs : Scan next SBI slot. 
tt 658 -DISABLE LSB 
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VMB - VMS Primary Bootstrap Routine 16-SEP-1984 00:17:15 VAX/VMS Macro v04-0 P 9 
04-002 Strings used in Fite 170 weer 188s 99:85:58 FARA YES tag ro ORS age (33 


-SBTTL Strings used in File 1/0 


ame of standard secondary 


B8B 266 
B a VMSF ILE: oN 
s -ASCIC /CSYSEXEJSYSBOOT.EXE/ ; bootstrap image file. 


664 
665 DIAGFILE: 3; Name of standard diagnostic 
44 5D 54 GE 49 41 4D 53 59 53 5B 00° OB9F $685 eASCIC /CSYSMAINTIDIAGBOOT.EXE/ ; secondary bootstrap image. 
28 38 28 Se $4 er ae a2 a? af 43 A , ores 
44 667 
BB6 2668 FILSGT_TOPSYS:: 
30 53 59 53 99° pees 669 eASCIC /SYSO/ ; Default top Level system dir name 
00000BC0 paee $70 -BLKB 10-<.-FILSGT_TOPSYS> ; Fill to 10 bytes 
CO 2672 NAMEPROMPT: ' : Prompt string for secondar 
00 3A 65 6C 69 66 74 6F 6F 42 OA OD dBe0 ers eASCIZ <CR><LF>/Bootfile:/ $ boot file none. . 
OBCC 2675 DEVPROMPT: ; 3; Prompt string for secondary 
63 69 76 65 64 4 6F 6F 42 OA OD OBCC 2676 eASCIZ <CR><LF>/Boot device name (ddcu):/ 
75 63 64 64 28 20 65 6D 61 6€ ¢° 65 0BD8 
00 3A 29 OBES 
OBE7 $677 3; device mnemonic. 
OBE rt SWI TCHPROMPT P t stri f itchi l di | 
: ; Prompt string for switching console media | 
68 74 20 74 72 65 73 6E 49 07 OA OD OBE7 $880 sASCII <CR><LF><7>/Insert the first standalens system akin / 
of 61 74 73 3! 74 73 72 69 66 20 65 OBF3 
65 74 73 79 20 65 6E 6F oC 61 64 OBFF 
34 65 6D 75 6C 6F 76 20 6D OCOB 
59 22 20 72 65 74 6E 65 20 64 3 61 0C14 2681 -ASCIZ /and enter ‘YES’ when ready: / 
61 65 72 20 6E 65 68 77 20 ¢ 53 45 gcse 
00 20 3A 79 64 Bcee ma 
0C¢31 oes ; Message to remove current volume. Note that besides givin the user some useful | 
OC31 2684 ; feedback, this message causes the volume to be rewound so that the volume tabel 
0C31 2685 ; can be read. This will prevent device timeouts (processor timeouts) on TUS8 drive. 
Oc3 $36 3; since the processor has been seen to timeout waiting for a TU5S8 to rewind. 
20 65 73 61 65 6C 50 07 0A 0A OA OD 0C31 at REMOVEPROMPT1: .ASCIZ <CR><LF><LF><LF><7>/Please remove the volume ‘'/<7> 
76 20 65 68 74 20 65 76 6F 6D 65 72 OC3D 
00 97 2 20 65 6D 75 6C 6F 0C49 
63 20 65 $8 4 20 6D 6F 72 $6 20 22 8 2689 REMOVEPROMPT2: .ASCIZ /*' from the console device./<7><CR><LF> 
65 69 76 65 64 20 65 6C 6F 6E 6F OC 
00 OA OD 07 2E 65 OCSA 
C70 2690 : 
C7 $3) ; Message to resume loading 
6C 20 $7 6E 34 6D 75 73 65 52 0A OD 75 695 RESUMEPROMPT1: .ASCIZ <CR><LF>/Resuming load operation on volume ‘'/ 
OF 69 74 g 2 65 70 6F 20 64 61 6F OC7C 
20 65 6D 75 6C 6F 76 20 6E 6F é0 : ce 
74 73 20 65 73 61 65 6C 70 20 2C ere 2694 RESUMEPROMPT2: .ASCIZ /*', please stand by . . ./<CR><LF><LF> 
2E 20 2E 20 2E 20 79 62 $9 in oe 1 OCA 
0 OA OA OD cas 
OCB2 2695 


—_——-- rn 
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VMB = VMS Primary Bootstrap Routine 16-SEP-1984 00:17: AX/VMS Macro V04-0 Page 
v04-002 Strings used in Pite 1¥0 iets yi 90:15:38 Yeoors sre VMB.MAR; . 8) 
cB 696 CI_UCODE_FILE: 
4E 49 42 2E 30 38 37 49 43 8" Bs 363s I TASCIC /C1780.B1N/ ; Name of the binary file 
tee 3635 PCS_UCODE_FILE 
GE 49 42 2E 30 35 37 53 43 50 80" 4! $80 es ASCIC /PCS750.BIN/ 3 Name of the binary file 
fe 701 
CC? 27 ¢ UCODE_FAIL: 
6E 23 2D 57 $8 54 GF 4F $e 25 0A OD OCC? 270 eASCIZ <CR><LF>/ZB00T-W-Unable to locate ucode file = xxxx/<CR><LF> 
bc £9 66 90 6S Se OF be 98 90 e ot OSE 
§ 88 6p $3 $3 % $3 20 2 $ 65 OCEB 
OOOOCCF OCF6 A UCODE_SEVER = UCODE_FAIL+8 ; Severity code 
OOOOOCEF Bcre A UCODE_NAME = UCODE_FAIL+40 : File name 
OCF6 2707 PCS_UCODE_STAT: 
00000000 OCF6 2708 . CONG 
00000000 OCFA 2709 LONG 
OCFE 2710 
OCFE 2711 PCS_UCODEV: 
20 53 43 50 acts ar eASCII /PCS / | 
FFFFFFBA ODO 71 -LONG PCS_UCODE_FILE-. 
FFFFFFFO O0D06 2714 .LONG PCS"UCODESTAT-. | 
00000001 ODOA 2715 «LONG 1 3 Fatal 
ODOE 2716 
ODOE 2717 CI_UCODEV: 
20 20 49 43 +343 718 eASCII /C1 / 
FFFFFFAO 0D1 719 -LONG CI_UCODE_FILE- 
FFFFFGEA® OD16 720 LONG CI_UCODE_STAT- 
00000000 ODIA 2721 LONG 0 3 Non-fatal 
ODIE sise 
ODIE 272 
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VMB - VAS Primary Bootstrap Routine 16-SEP-1984 00:17:15 VAX/VMS Macro v04-0 Pa 1 
v04-002 Unexpected machine check handler, DEBUG iets 7 99:35:38 teoors: sre VMB.MAR; - (Sa) 
$3 $186 -SBTTL Unexpected machine check handler, DEBUG Labels 
; 4) 7 5 SET_PSECT ; Back to default PSECT 
; tenes Change Program Section 
0000 -PSECT $$$$00B00T,LONG 
; Define handlers needed by XDELTA. 
«ALIGN LONG ; ALL handlers lLongword-aligned. 
IF DF ,DEBUG : If debugging, 
EXESACVIOLAT:: : Access violation vector. 
EXESBREAK: : ; BPT vector. 
EXESROPRAND 3; Reserved operand vector. 
EXESTBIT:: 3; Trace trap vector. 
MMGSPAGEF AULT: : ; Pagefault exception vector. 
-ENDC : End of debugging conditional. 


; Fault handler for unexpected exception conditions during bootstrap. 


OOT_FAULT: 3; Handler for most of SCB. 
ERROR </ZB00T-F-Unexpected Exception/> 
; Output error message. 


«ALIGN LONG ; ALL handlers lLongword-aligned. 


; Machine check handler. 


SONNE 
PDP £ BB BBE EAA) 


WIN SO OOO NAME WN 9 ODNOAUE WIN OO ONAUES WN OOM 


UNEXP_MCHK: : 
ERROR </%BO00T-F-Unexpected Machine Check/> 
7% ; Output error message. 
65 ; 
Ne: 3; Labels required by XDELTA. 
766 * 
oe IF DF ,DEBUG : If debugging, define labels. 


768 
769 INISRDONLY:: 


Dummy change protection 
770 INISWRITABLE:: n 


routines. 


DEPP AAAPAP AAA AAA DAE EE BEE EES LPN ININININIMNININININININININININININININININS 2 — — 
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771 SYSLSCLRSBIA:: Dummy routine to clear SBIA errors. 
05 ore RSB Just return. 

774 EXESGL_FLAGS:: : Dummy flags longword. 

775 EXESCL_SCB:: ; Dummy SCB address pointer. 


- VMS Primary Pootstres Routine A 


Unexpected mach 


00000000 


belo lelololelololeleleolololelelol ole <) 


he et sn a ts et 


PASSA AAOAAOAACAAOO 
CV OOOO OOOOOONO 


: 


ne check handler, DEBUG 
18 EXESV_SIMULATOR == 0 
779 BEN PENSAB- Srayess 


5 PFNSAW_SWPVBN: : 
$ sy SYSSIOBASE:: 
SCHSGL_ CURPCB:: 
SCHSGL_PCBVEC:: 
791 XDSSGT_WORD PFN:: 
79 -LONG 0 


79 
79% -ENDC 


, 
7 
Fa br 
, 4 CEN AW “REF CNT: : 
7 
7 
? 
7 


p=1986 $1:52:29 EBoovS: sme Suma. RAR; 


; This is not a simulator. 
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/ V04-002 Error message subrout ine mitt} 99:35:33 (BOOTS. SRCIVMB MAR: ag (83) 
198 739 -SBTTL Error message subroutine 
1 +e 


0 ; Functional description: 

This routine outputs a descriptive error message to the 
console terminal. Then the routine restores the original 
register settings from the time that the primary bootstrap 
gained control, and executes a HALT instruction. 


wr 


FIR So Be Se Be Oe Be Se Se Se Oe Se Se Be Se Se Se Ge Se See Se Se Sees 


Poxcsse 


Inputs: 
SP = points to address of message text 
Implicit inputs: 


The RPB contains the contents of the original boot registers, 
and the original stack pointer. 


Outputs: 
Registers RO-R6, R10-R11, and AP are restored from the RPB. 
Implicit outputs: 


‘ 


When the HALT instruction executes, the console terminal reports 
a halt and prompts the user for input. 


; Report an error and HALT. 
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58 3 0 (SP)+,R8 3; Get pointer to message text. 
E C (SP) 3 Null shout buffer and size 
3 ar nts. 
38 ny) PUS ag 3; Address of prompt string. 
‘CF QO F CALLS #3,BOOSREADPROMPT 3; Report the error. 
58 purer D MOVL BOOSGL _RPBBASE ,R11 ; Get the RPB address. 
g E 0° MOVL P,R9 3: Save old SP 
3E 68 MOVL RPGS. BASE(R11),SP > Set SP to base of memory. 
SE 0200 CE 9%E MOVAB *x200TSP) ; Set SP to Ist page past RPB. 
59 1¢ AB 7D va RPBSL_BOOTRO(RI1) .RO : Restore RO-R1. 
4 AB 7D MOVa RPBSL_BOOTR2(R11),R 3; Restore R2-R5. 
2 5 AB 7D MOVaQ RPBSL_BOOTR4(R11) ,R4 : Restore R4-R5. 
c AB D0 MOVL §§ RPBSLTHALTCODE(R11),AP : Restore halt code. 
SA 10 ABE Os? 9 oie MOVG #RPBSL-HALTPC(R11),R10 : Restore halt PC and PSL. 
00 D HALT ; Halt the processor. 


If the user types CONTINUE to the console program, try to restart 
the bootstrap process. 


0.09.09 09 C209 09 00 0d Cd 0d Gp 0d OD C0 OD CD 0D Cd Cd GD OD CD CD CD OD CD CD Cd OD CD CD CD 0D CD GD GD GD CD CD CD CD CD CD 0D 09 0D CD CD CD COO II 


DOT at at et at et a et eb he) 


am aaa a a at tk tk a a ak = a a ts a ts a a = a = 2 1 a as a a ss 
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FA ore et § BLBS MUST_HALT,ERRHLT ; Branch if cannot retart 
FESA BRW START BOOT : Restart the boot. 


> 


H 3 
VMB - VMS Primary Bootstrap Routine 16-SEP-1984 00:17: AX/VMS Macro V04- Pa 
v04-002 Declarations located at end of bootstrap or En 8 4 90:35:33 YBOOTs SRC IVMB MARS - (36) 
1, 3 -SBTTL Declarations located at end of bootstrap 
an é -ALIGN LONG 
1A 5 ; Parameter List handed from primary boot to secondary boot 
1A 28 3; The first location contains the remnant count. It is intended 
1 3 that the ot t will know what is in the list based on 
1A 60 ; the argument count and the VMB version number. This means that 
1A 61 ; new information should be preces at new offsets even if older 
1 $6 ; stuff becomes obsolete. The VMB version number can be used to 
aA 65 ; totally change the argument meanings if necessary. 
1A $8 SECOND_PARAM: 
O1AC 01 66 FILS$GQ_CACHE s= ,+VMBSQ_FILECACHE ; FILEREAD cache descriptor 
OOO1CC 01 6 BOOSGB_SYSTEMID == .+VMBSB_SYSTEMID ; SCS system id 
OOOO000E OIA re «LONG ~ <VMBSC_ARGBYTCNT-45/4 ; Size of argument List 
000001E4 1% 3 -BLKB VMBSC_ARGBYTCNT=<4 . ; Reserve space for the arguments 
1E4 71 BITMAP_VEC_PTR: 
OOOOOIES O1E4 es -BLKL 1 ; Address of bitmap page array 
ice 73 BITMAP_HI_INDX: 3 Bi ghest index to 
QOOOOIEC OIE are BLK 1 ; bitmap page address array 
1EC 75 BITMAP_BAS PFN: ; Starting PFN for PFN bitmap 
000001FO O1E ere -BCKL 1 z when it is bigger than the 
1F 87 3; pre-allocated bitmap 
00000000 00000000 O1F 378 INPBUF: .QUAD 0 ; Dummy input buffer, with a cushion 
1F 879 BOOSGL_RPBBASE: : 
QOOOOIFC OTF 880 -BLKL 1 3; RPB base address 
1FC 2881 MUST_HALT: 
00000000 ba oes -LONG 0 ; If LBS, ERROUT should not restart 
0 3 3 rather it must halt. 
00 ; 4 CI_UCODE_STAT: 
00000000 00000000 03 HH Last a 0,0 - 3; Statistics block for ucode file 
00000000 0 0 a8? “ ,LONG 0 ; Last memory location probed 
3 888 MEM_FLAG: 
00000000 : Hs -LONG 0 : Flag for memory found 
1 891 ; 
1 O36 3; If debugging flag is set, align end of bootstrap on a longword 
; Ser 3; boundary. 
1 95 ° 
1 If DF ,DEBUG 
1 9 -ALIGN LONG 
1 38 -ENDC 
1 9 
10 2900 .END — START_BOOT 
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UBD 
UCODE_FAIL 
UCODE “NAME 
UCODE-SEVER 


VMBSL“LO-PF 
VMBSO~F ICECACHE 
VMB$Q~NODENAME 
Vine $a-PF NMAP 


BS$Q-UCODE 
VMBSV-LOAD_SCS 
vesF ICE 


XDELTBIT 
XDS$GT_WORD_PFN 
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VMB 
Psect synopsis :52:2 BOOTS.SRCJVMB.MAR; 
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! Psect synopsis ! 


¢ eww aeweanaanmocemes > 


PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 ( -» 00O¢ OO.) NOPIC USR CON ABS LCL —e NOEXE NORD NOWRT NOVEC BYTE 
SABSS FFFFFFF ( of 1 ¢ 1.) WNOPIC USR CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 
0000 8 ( ol ; ( ¢°) PIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
BOOTDRIV_9 0000 ( -) . Ben PIC USR CON REL LCL NOSHR EXE’ R&D WRT NOVEC PAGE 
. 8 10 ¢ 38 -) 04 ¢ 2°} NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC LONG 
M DIE ( 3358.) 05 ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE RD WR VE 
YF ILEREAD 00000011 ¢ 17.) 06 ¢ 6.) NOPIC USR CON REL LCL NOSHR EXE AD WRT NOVEC BYTE 
pom wmeewmmen ee ene wee enero 
H Per formance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.09 0:00:00.75 
se processing 126 es SS HB BE 
649 8 00:5 16 00:00:51.6 
Synbol table sort 0 00:00:03.7 00:00:05.05 
s2 656 es St 00:00:15.54 
wk, table output 1 Se Ree Se 14 00:00:00.68 
Psect synopsis output 1 00:00:00.03 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 1464 00:00:40.26 00:01:17.78 


e working xt Limit was 1950 pages. 
138249 bytes. (310 pages) of virtual memory were used to buffer the intermediate code. 
There were 130 pages of symbol table epee ad ag to hold 2311 non-local and 96 local symbols. 
ed Baar Me iynbe were read in Pass 1, produci "8 36 object records in Pass 2. 
4 pages of virtual memory were used to define 50 macros. 
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Macro Library name Macros defined 
$355 :FBoot- 064 980045. -MLB;1 5 
MLB; 1 1 
Sea :CSY $ 08/341 16 
:CSYSLIB STARLET. is. 32 12 
tte Act “Cibraries) 34 


2440 GETS were required to define 34 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:VMB/OBJ=0BJ$:VMB MSRC$: VMB/UPDATE=(ENHS: VMB) +E XECMLS$/L!B+L1B$:B00TS.MLB/LIB+SHRL IBS: 790DEF .MLB/LIB 
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